Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2005.12.11;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.035 c
6-1125535648
DeathLess
2005-09-01 04:47
2005.12.11
Скачать файл с докачкой


2-1133180778
pathfinder
2005-11-28 15:26
2005.12.11
Как лучше сохранить выборку из Adoquery в файл?


2-1132921845
brownrat
2005-11-25 15:30
2005.12.11
доступ к компоненте другой программы


14-1132242762
U-stack
2005-11-17 18:52
2005.12.11
Отключить Касперского


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