[JimBeam]

Добрый вечер! Имеется форма, на которой расположена кнопка, по нажатии которой, открывается сторонняя программа через CreateProcess и форма становится невидимой. Вопрос: как сделать так, чтобы после завершения процесса программы, форма обратно становилась видимой?
Вот код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 FillChar(StartUpInfo, SizeOf(TStartUpInfo), 0);
  with StartUpInfo do
  begin
    cb := SizeOf(TStartUpInfo);
    dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
    wShowWindow := SW_SHOWNORMAL;
    form1.visible:=false;
  end;
  Rlst := CreateProcess(ПРОГРАММА.exe', '', nil, nil, false, NORMAL_PRIORITY_CLASS, nil, nil, StartUpInfo, ProcessInfo);
  if Rlst then
  with ProcessInfo do begin
    WaitForInputIdle(hProcess, INFINITE);
    form1.visible:=true;
    CloseHandle(hThread);
    CloseHandle(hProcess);

  end
else Error := GetLastError;
end;

Заранее спасибо!