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

  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;
    
Kwork.ru - услуги фрилансеров от 500 руб.
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (11 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий