Как запихнуть в .res файл два файла и затем распаковать их с помощью другой проги в разные директории ?

← →
Lizard (2001-12-09 12:03) [0]

Все что ограничено линиями понятно, работает.

============================================
1. Пишем в блокноте RC-файл, куда прописываем все нужные нам программы, например: ARJ EXEFILE C:\UTIL\ARJ.EXE 2. Компилируем его в ресурс при помощи Brcc32.exe. Получаем RES-файл. 3. Далее в тексте нашей программы:

implementation
{$R *.DFM}
{$R test.res} //Это наш RES-файл
procedure ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
// Записывает в текущую папку arj.exe
ExtractRes("EXEFILE", "ARJ", "ARJ.EXE");
end;

============================================

Одну прогу засунуть получается, но вот вторую никак ..???
Подскажите как в res файл воткнуть второй файл (exe или иной) и как потом распаковать их ?

Очень буду обязан.

Как запихнуть в .res файл два файла и затем распаковать их с помощью другой проги в разные директории ? Найти похожие ветки