Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.07;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
14-20765
sapsi
2003-07-21 08:15
2003.08.07
Такие жуткие вещи


3-20437
Klim Samgin
2003-07-17 08:55
2003.08.07
Изменение типа поля


14-20710
PPP
2003-07-23 14:46
2003.08.07
Оцените идею. Интересно ваше мнение.


14-20756
Nucl
2003-07-14 16:05
2003.08.07
Оформление программы


1-20521
GreySerg
2003-07-25 18:41
2003.08.07
Создание коллекции объектов