| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Можно ли запихнуть какую-нибудь файл внутрь EXE файла и как? [D6, Win95/98, WinME]
Berg © (2002-10-14 22:12:00)Подскажите, 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"
Berg (2002-10-14 22:59:00) [1]Спасибо, Kotka ,
Теперь всё работает.
Kotka (2002-10-14 22:54:00) [2]У меня в D6 класс TResourceStream расположен в модуле Classes.
Berg (2002-10-14 22:53:00) [3]>Anatoly Podgoretsky
uses Windows, Messages, SysUtils,shellapi;
Anatoly Podgoretsky (2002-10-14 22:21:00) [4]приведи свой uses
| |
