CreateProcess,WaitForSingleObject и внезапное желание закрыться у наблюдаемой программы, как ловить?

[Человек_Борща]

всем доброго времени суток!

Сабж:
в потоке TThread через CreateProcess запускаю программу, при помощи WainForingleObject(ProcessInformati on.hProcess,INFINITE) ожидаю завершения...

Проблема:
Ситуация, программа(чкжая запущена) все хорошо, но вот программа незапно закрылась...
Как это ловить?

Предпологаю надо ловить сообщение от WaitForSingleObject , но какое?
WAIT_TIMEOUT?

Подскажите правельно ли я думаю? Или надо как-то по другому?

P.S. голова уже не варит

[GunSmoker]

Что значит "внезапно"? Чем это отличается от "не внезапно"? Тем что ты не ожидал? Тогда ответ на этот вопрос потребует от программы наличия телепатических способностей.

[Человек_Борща]

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

[JTG]

WaitForSingleObject, как следует из названия, ждёт, т.е. не возвращает управление пока объект, в данном случае дескриптор процесса, не перейдёт в сигнальное состояние (или не пройдёт указанное время)

type

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TMyThread = class(TThread)
     procedure Execute; override;
   end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TMyThread.Execute;
Var SI: _STARTUPINFOA;
    PI: _PROCESS_INFORMATION;
begin
  inherited;
  With TOpenDialog.Create(Form1) do
  begin
    Filter := 'exe|*.exe';
    If Execute then
    Begin
      GetStartupInfo(SI);
      CreateProcess(PChar(Filename), '', nil, nil, true, CREATE_DEFAULT_ERROR_MODE, nil, nil, SI, PI);
      WaitForSingleObject(PI.hProcess,INFINITE);
      Closehandle(PI.hProcess);
      CloseHandle(PI.hThread);
      ShowMessage('Process terminated')
    End;
    Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TMyThread.Create(false) do FreeOnTerminate:=true;
end;