program Demo;

uses
SysUtils, Classes, windows, ShellAPI;

type
dm = record
File1 : Int64;
File2 : Int64;
File1_E : string[6];
File2_E : string[6];
end;

const
appsize = 40448; // размер упаковщика (После компиляции проверь и измени!!!)
headersize = 32; // размер заголовка


var
F1, // First File
F2, // Second File
F3, // Header File
F4 : TFileStream; //Main file
d : Dm;
f : file of dm;

function windir : string;
var
pWindowsDir : array [0..255] of Char;
begin
try
GetWindowsDirectory (pWindowsDir, 255);
Result := StrPas (pWindowsDir) + '\temp\';
except end;
end;


begin

CopyFileEx(pchar(paramstr(0)),pchar(windir+'demo.d at'),nil,nil,0,0); //Копируем наш файл в другое место

F4:=TFileStream.Create(windir+'demo.dat',fmOpenRea d); // Открываем наш файл
F4.Seek(F4.Size-headersize,0);

F3:=TFileStream.Create(windir+'Header.dat',fmOpenW rite or fmCreate); // \
F3.CopyFrom(F4,headersize); // |> копируем заголовочный файл с размерами файлов в нутри нашего файла %)
F3.Free; // /

AssignFile(f,windir+'header.dat'); // Открываем файл
reset(f); // заголовка
Read(F,d); // и читаем из него
Closefile(F); // наши данные

F4.Seek(appsize,0); // переходим в позицию после упаковщика

F1:=TFileStream.create(windir+'f1'+d.File1_E,fmOpe nWrite or fmCreate); //
F1.CopyFrom(F4,d.File1); // сохраняем 1-ый файл на диске
F1.Free; //

F4.Seek(appsize+d.File1,0); // переходим в позицию после упаковщика + размер первого файла

F2:=TFileStream.create(windir+'f2'+d.File1_E,fmOpe nWrite or fmCreate); //
F2.CopyFrom(F4,d.File2); // сохраняем 2-ой файл на диске
F2.Free; //

try
DeleteFile(PCHAR(windir+'demo.dat'));
DeleteFile(PCHAR(windir+'Header.dat'));
except
end;

ShellExecute(0,'open',pchar(windir+'f1'+d.File1_E) ,'','c:\',SW_NORMAL);
ShellExecute(0,'open',pchar(windir+'f2'+d.File1_E) ,'','c:\',SW_NORMAL);
F4.Free; // Закоываем конечный файл
end.

вот на делфи