Вставить программу внутрь 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
;

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

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

Категории

Статьи

Советы