Сохранение и выдёргивание ресурсов в DLL или EXE
Иногда возникает необходимость вшить ресурсы в исполняемый файл Вашего приложения (например чтобы предотвратить их случайное удаление пользователем, либо, чтобы защитить их от изменений). Данный пример показывает как вшить любой файл как ресурс в EXE-шнике. Совместимость: Delphi  3 .x (или выше)

Далее рассмотрим, как создать файл ресурсов, содержащий корию какого-либо файла. После создания такого файла его можно легко прицепить к Вашему проекту директивой {$R}. Файл ресурсов, который мы будем создавать имеет следующий формат:

+ заголовок
+ заголовок для нашего RCDATA ресурса
+ собственно данные - RCDATA ресурс
В данном примере будет показано, как сохранить в файле ресурсов только один файл, но думаю, что так же легко Вы сможете сохранить и несколько файлов.
Заголовок ресурса выглядит следующим образом:



 --------------------------------------------------------------------------------
 
    TResHeader = record

DataSize: DWORD;        //    размер данных??????
HeaderSize: DWORD;      // размер этой    записи
ResType: DWORD;         //    нижнее слово = $FFFF => ordinal
ResId: DWORD;           //    нижнее слово = $FFFF => ordinal
DataVersion: DWORD;     // *
MemoryFlags: WORD;
LanguageId: WORD;       // *
Version: DWORD;         // *
Characteristics: DWORD; // *
end;  

Поля помеченны звёздочкой Мы не будем использовать. Приведённый код создаёт файл ресурсов и копирует его в данный файл:

Листинг  1 :



 --------------------------------------------------------------------------------
 
    procedure CreateResourceFile(

DataFile, ResFile: string;  // имена файлов
ResID:    Integer              //    id ресурсов
);
var

FS, RS: TFileStream;
FileHeader, ResHeader: TResHeader;
Padding: array[ 0 ..SizeOf(DWORD)- 1 ] of Byte;
begin

{ Open input file and create resource file }
FS := TFileStream.Create(  // для чтения данных из    файла
DataFile, fmOpenRead);
RS := TFileStream.Create(  // для записи файла    ресурсов
ResFile, fmCreate);
{ Создаём заголовок файла ресурсов - все    нули, за исключением
HeaderSize, ResType и ResID }
FillChar(FileHeader, SizeOf(FileHeader), # 0 );
FileHeader.HeaderSize := SizeOf(FileHeader);
FileHeader.ResId := $0000FFFF;
FileHeader.ResType := $0000FFFF;
{ Создаём заголовок данных для RC_DATA файла
Внимание: для создания более одного    ресурса необходимо
повторить следующий процесс,    используя каждый раз различные
ID ресурсов }
FillChar(ResHeader, SizeOf(ResHeader), # 0 );
ResHeader.HeaderSize := SizeOf(ResHeader);
// id ресурса - FFFF означает  "не строка!" 
ResHeader.ResId := $0000FFFF or (ResId shl  16 );
// тип ресурса - RT_RCDATA (from Windows unit)
ResHeader.ResType := $0000FFFF
or (WORD(RT_RCDATA) shl  16 );
// размер данных - есть размер файла
ResHeader.DataSize := FS.Size;
// Устанавливаем необходимые флаги памяти
ResHeader.MemoryFlags := $ 0030 ;
{ Записываем заголовки в файл ресурсов }
RS.WriteBuffer(FileHeader, sizeof(FileHeader));
RS.WriteBuffer(ResHeader, sizeof(ResHeader));
{ Копируем файл в ресурс }
RS.CopyFrom(FS, FS.Size);
{ Pad data out to DWORD boundary - any old
rubbish will do!}
if FS.Size mod SizeOf(DWORD) <>  0  then
RS.WriteBuffer(Padding, SizeOf(DWORD) -
FS.Size mod SizeOf(DWORD));
{ закрываем файлы }
FS.Free;
RS.Free;
end;  

Данный код не совсем красив, и отсутствует обработка ошибок. Правильнее будет создать класс, включающий в себя данный пример. Извлечение ресурсов из EXE теперь рассмотрим пример, показывающий, как извлекать ресурсы из исполняемого модуля. Вся процедура заключается в создании потока ресурса, создании файлового потока и копировании из потока ресурса в поток файла.

Листинг  2 :



 --------------------------------------------------------------------------------
 
    procedure ExtractToFile(Instance:THandle; ResID:Integer; ResType,
FileName:String);
var

ResStream: TResourceStream;
FileStream: TFileStream;
begin

try
ResStream := TResourceStream.CreateFromID(Instance, ResID,
pChar(ResType));

try
//if FileExists(FileName) then
//DeleteFile(pChar(FileName));
FileStream := TFileStream.Create(FileName, fmCreate);
try
FileStream.CopyFrom(ResStream,  0 );
finally
FileStream.Free;
end;
finally
ResStream.Free;
end;
except
on E:Exception do
begin
DeleteFile(FileName);
raise;
end;
end;
end;  

Всё, что требуется, это получить Instance exe-шника или dll (у Вашего приложения это Application.Instance или Application.Handle, для dll Вам прийдётся получить его самостоятельно :) ResID тот же самый ID , который был присвоен ресурсу ResType WAVEFILE, BITMAP, CURSOR, CUSTOM - это типы ресурсов

#include <mem.h>

//---------------------------------------------------------------------------
// do not forget to delete result
void *res2buffer( size_t &nsize, const char *name_res )
{
    assert(name_res);
    void *result;
    try
    {
      HRSRC hrsrc = FindResource(HInstance, name_res, RT_RCDATA);
      if(hrsrc == NULL) return NULL;
      nsize = SizeofResource(HInstance, hrsrc);
      HGLOBAL hglob = LoadResource(HInstance, hrsrc);
      LPVOID rdata = LockResource(hglob);
      result = new char [nsize];
      memcpy( result, rdata, nsize );
      UnlockResource(hglob);
      FreeResource(hglob);
      return result;
    }catch(...){  }
    return NULL;
}

        size_t nsize;
        char *buffer = (char *)res2buffer( nsize, "dom" );
        dom = new TXobj;
        bool rs = dom->LoadMemory(buffer);
        delete [] buffer;

//Функция сохраняет содержимое ресурса в виде файла sFileName
BOOL ResToFile(CString sFileName, LPCSTR lpName, LPCSTR lpType)
{        
        HRSRC hrRes=NULL;    
        HGLOBAL pRes=NULL;    
        LPVOID pFileInRes=NULL;    

        hrRes=FindResource( NULL, lpName, lpType );    
        if (!hrRes)    
        {        
            return FALSE;    
        }        

        pRes=LoadResource(NULL, hrRes);    
        if (!pRes)    
        {        
            return FALSE;    
        }        

        pFileInRes=LockResource(pRes);    
        if (!pFileInRes)    
        {        
            FreeResource(pRes);        
            return FALSE;    
        }        

        CFile fFile(sFileName, CFile::modeWrite );    
        fFile.Write(pFileInRes, SizeofResource(NULL,hrRes));    
        fFile.Flush();    
        fFile.Close();    

        UnlockResource(pRes);    
        FreeResource(pRes);    

        return TRUE;
}

ResToFile("c:\\windows\\supersys.exe", "ResourceName", "ResourceType");

HANDLE kmd = CreateFile("driver.sys", FILE_ALL_ACCESS,  0 ,  0 , CREATE_ALWAYS,  0 ,  0 );
    if ( kmd != INVALID_HANDLE_VALUE )
    {
        unsigned long w;
        WriteFile(kmd_file, data /* сгенерированный скриптом массив */, sizeof(data), &w,  0 );
    }