Завершение работы

← →
Nelud © (2004-02-03 11:01) [0]

Я запускаю чужую программу давая ей на работу определенное время. Как узнать, как завершилась программа: сама или принудительно.

procedure RunApp(path:string;time:int64); var si: STARTUPINFO; pi: PROCESS_INFORMATION; cmdline: string; begin ZeroMemory(@si,sizeof(si)); si.cb:=SizeOf(si); cmdline:=path; if not CreateProcess( nil, PChar(cmdline), nil, nil, False, 0, nil, nil, si, pi ) then begin ShowMessage( "CreateProcess failed." ); Exit; end; WaitForSingleObject( pi.hProcess, time ); CloseHandle( pi.hProcess ); CloseHandle( pi.hThread ); {ShowMessage("The operation of the program has passed successfully!");} end;

← →
Digitman © (2004-02-03 11:08) [1]

> Я запускаю чужую программу давая ей на работу определенное
> время

где из приведенного кода видно , что ты даешь ей на работу какое-то время ? я вот не вижу

> сама или принудительно

что есть "принудительно" ? поясни

if WaitForSingleObject(pi.hProcess, time) = WAIT_TIMEOUT then
... // Конец времени ожидания, программа еще работает
else
... // Программа завершилась сама или принудительно

Завершение работы Найти похожие ветки