Форум: "Основная";
Текущий архив: 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