Главная страница
    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.033 c
2-1132733680
ВоваВова
2005-11-23 11:14
2005.12.11
как разбить строку?


2-1133160924
RealMan
2005-11-28 09:55
2005.12.11
как добавить примечание при печати TStringGrid


1-1132134636
Andrey21
2005-11-16 12:50
2005.12.11
Автоматическое изменение Height RichEdit-а


3-1130492504
NewProg
2005-10-28 13:41
2005.12.11
Помогите с исключающим запросом


2-1132814923
tytus
2005-11-24 09:48
2005.12.11
Снова Paskal





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