1. Пишем в блокноте RC-файл, куда прописываем все нужные нам программы, например:
ARJ EXEFILE C:ARHIVERSARJ.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
;