Текущий архив: 2002.10.24;
Скачать: CL | DM;

Вниз

Можно ли запихнуть какую-нибудь файл внутрь 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 ,
Теперь всё работает.

---

Страницы: 1 вся ветка

Текущий архив: 2002.10.24;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c