Вставить программу внутрь EXE файла

Советы » Ресурсы(RES-файлы) » Вставить программу внутрь EXE файла

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

;

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

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com