Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.11;
Скачать: CL | DM;

Вниз

EXE файл   Найти похожие ветки 

 
Neosted   (2005-11-27 20:39) [0]

Как в свою программу поместить другой exe, т.е. когда программа выполняется при нажатии на кнопку она распаковывает встроенный в неё Exeшник и запускае его?
Заранее спасибо.


 
Fay ©   (2005-11-27 20:44) [1]

Запихай в ресурс.

P.S.
... перед этим можно поискать на сайте по словам "ресурс" и "CreateProcess".


 
Neosted   (2005-11-27 23:03) [2]

А более подробно можно?


 
Zeqfreed ©   (2005-11-27 23:56) [3]

Neosted   (27.11.05 23:03) [2]

См. Fay ©   (27.11.05 20:44) [1]

>P.S.
> ... перед этим можно поискать на сайте по словам
> "ресурс" и "CreateProcess".


 
Eksell   (2005-11-28 00:34) [4]

Значит так :

1. Пишем в блокноте RC-файл, куда прописываем все нужные нам программы, например:
   MyFile EXEFILE C:\MyFile.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
// Для того чтоб выдернуть наш ресурс пишем :
ExtractRes("EXEFILE", "MyFile", "MyFile.EXE");
end;

Вот и все...


 
аматор ©   (2005-11-28 00:41) [5]

Привет...
http://delphiworld.narod.ru - залезайте туда, скачайте справочник (там такая ситуация есть и ещё маленький чумадан)



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

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

Наверх




Память: 0.47 MB
Время: 0.041 c
4-1128575004
ProgramMaster
2005-10-06 09:03
2005.12.11
Отслеживание появления окна


1-1131740281
Snale
2005-11-11 23:18
2005.12.11
Поиск слов в HTML-документе


5-1115961528
Другой Дмитрий
2005-05-13 09:18
2005.12.11
Как подавить создание компонента


2-1132557936
Alex_C
2005-11-21 10:25
2005.12.11
Как создать "независимый" телнет?


14-1132600503
Eraser
2005-11-21 22:15
2005.12.11
Лазерный диск по-английски