Главная страница
    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.035 c
3-1130306511
Кешаня
2005-10-26 10:01
2005.12.11
Освобождение таблицы


14-1132304552
Vlad Oshin
2005-11-18 12:02
2005.12.11
Все. Вообще все наперекосяк....


4-1128015832
Wolfram
2005-09-29 21:43
2005.12.11
Как узнать размер файла?


2-1132933237
DelphiLexx
2005-11-25 18:40
2005.12.11
Наследование форм - выдается ошибка


2-1132863505
LG
2005-11-24 23:18
2005.12.11
Подсветка





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский