|
|
![]() |
![]() |
![]() |
Вставить какую-нибудь программу внутрь EXE файла
1.
Пишем в блокноте RC-файл, куда прописываем все нужные нам программы,
например: ARJ EXEFILE C:\UTIL\ARJ.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 ©
"Мастера DELPHI" E-mail:
delphi@mastak.com
http://www.delphimaster.ru |
| Источник получения информации: http://www.delphimaster.ru
|
|
