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