Сохранение и выдёргивание ресурсов в DLL или EXE?

Code:

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;

Code:

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;

Code:

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;