Главная страница
    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.45 MB
Время: 0.04 c
4-1128789954
capkoh
2005-10-08 20:45
2005.12.11
Куда девается сообщение клавиатуры?


2-1132656200
312Kbps
2005-11-22 13:43
2005.12.11
Таблица значений или проста таблица !


3-1129925027
Sigetta
2005-10-22 00:03
2005.12.11
Курсоры и ADO


14-1132583518
ArtemESC
2005-11-21 17:31
2005.12.11
Как програмно выключить или перезагрузить компьютер?


14-1132079997
Sergey Masloff
2005-11-15 21:39
2005.12.11
Говорят, раз в 5 лет нужно менять работу. Даже если все





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский