Главная страница
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.016 c
1-20620
clim
2003-07-24 16:58
2003.08.07
timer


1-20609
FFDDAA
2003-07-24 16:31
2003.08.07
имя файла


1-20570
freeek
2003-07-24 10:28
2003.08.07
Extended to str


14-20741
vidiv
2003-07-20 10:46
2003.08.07
На какие браузеры надо ориентироваться.


14-20711
Vovchik_A
2003-07-23 15:51
2003.08.07
Вопрос !