Вставить какую-нибудь программу внутрь EXE файла

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

;

Другое по теме:

• Как скопировать все файлы вместе с подкаталогами
• Копирование файлов
• Удалить файл в корзину? Запросто!