Текущий архив: 2004.02.13;
Скачать: CL | DM;

Вниз

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

← →
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]

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


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


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


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

---

← →
Юрий Зотов ©   (2004-02-03 11:54) [2]

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

---

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

Текущий архив: 2004.02.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.026 c