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

Вниз

Ожидание завершение запущеной программы   Найти похожие ветки 

 
aa5E1   (2003-07-25 13:44) [0]

Как запустить программу из сваей программы и ждать ее завершения работы?
Если не трудно то кодом а не теорией. :)


 
___Nikolay   (2003-07-25 14:41) [1]

Вспомнилось: "Программа запущена... сильно запущена...."
Вот:


procedure TForm1.Button3Click(Sender: TObject);
var
si: STARTUPINFO;
pi: PROCESS_INFORMATION;
cmdline: string;
begin
ZeroMemory(@si,sizeof(si));
si.cb:=SizeOf(si);
cmdline:="c:\command.com";
if not CreateProcess( nil, { No module name (use command line). }
PChar(cmdline), { Command line. }
nil, { Process handle not inheritable. }
nil, { Thread handle not inheritable. }
False, { Set handle inheritance to FALSE. }
0, { No creation flags. }
nil, { Use parent"s environment block. }
nil, { Use parent"s starting directory. }
si, { Pointer to STARTUPINFO structure. }
pi ) { Pointer to PROCESS_INFORMATION structure. }
then
begin
ShowMessage( "CreateProcess failed." );
Exit;
end;
WaitForSingleObject( pi.hProcess, INFINITE );
CloseHandle( pi.hProcess );
CloseHandle( pi.hThread );
ShowMessage("Done !");
end;


 
aa5E1   (2003-07-25 16:54) [2]

Спасиба


 
aa5E1   (2003-07-25 16:55) [3]

тезка :)



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

Форум: "Основная";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.009 c
1-20504
Эл
2003-07-24 10:37
2003.08.07
Захват окна


14-20676
Артем К
2003-07-23 02:04
2003.08.07
Ресурс по алгоритмам обработки изображений?


1-20590
SergeySEM
2003-07-24 13:15
2003.08.07
RichEdit Розмер буфера


14-20800
Stas
2003-07-21 14:00
2003.08.07
IP Адрес


7-20835
Ромн
2003-05-21 12:25
2003.08.07
Нажатие на копку





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