Вставить программу внутрь EXE файла
1. Пишем в блокноте RC-файл, куда прописываем все нужные нам
программы, например:
ARJ EXEFILE C:\ARHIVERS\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;
|
|
|
|
|
Узнайте значение своего имени: метод глеба архангельского. . Виктория. Скидки: санаторий виктория кисловодск цены. Цены санаториев в Кисловодске. . Частные объявления. Барахолка: куплю ленту светодиодную. Как выбрать пластиковые окна. . Liquid image - liquid image scuba series. Маски Liquid Image Scuba Series. . Стоимость рекламы на одноклассниках. Липецкая реклама на одноклассниках. . |
