unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)

    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var Form1: TForm1;

implementation

type
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;

{$R *.dfm}
{$R LogoSI.res}

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;

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;

procedure TForm1.Button1Click(Sender: TObject);
begin
CreateResourceFile( 'LogoSI.bmp', 'LogoSI.res', 1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ExtractToFile(Application.Handle, 1, 'CUSTOM', ExtractFiledir(paramStr(0))+'/Source SMP/LogoSI.bmp');
end;

end.