Можно ли запихнуть какую-нибудь файл внутрь EXE файла и как?

← →
Berg (2002-10-14 22:12) [0]

Подскажите, plz, как запихнуть какую-нибудь программу внутрь EXE файла?

В одном из faq прочитал следующее:
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;

Но Delphi выдаёт ошибку: Undeclared identifier: "TResourceStreem"

← →
Anatoly Podgoretsky © (2002-10-14 22:21) [1]

приведи свой uses

← →
Berg (2002-10-14 22:53) [2]

>Anatoly Podgoretsky
uses Windows, Messages, SysUtils,shellapi;

← →
Kotka © (2002-10-14 22:54) [3]

У меня в D6 класс TResourceStream расположен в модуле Classes.

← →
Berg (2002-10-14 22:59) [4]

Спасибо, Kotka ,
Теперь всё работает.

Можно ли запихнуть какую-нибудь файл внутрь EXE файла и как? Найти похожие ветки