[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;

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

[Bargest]

http://stackoverflow.com/questions/9...ss-to-finish-c

You just call WaitForSingleObject on the handle CreateProcess returns.

[JimBeam]

Сообщение от Bargest

http://stackoverflow.com/questions/9...ss-to-finish-c

Прошу прощения, но в какое именно место это вставлять? Если Вам не трудно, можете написать готовый код?

[Alegun]

Вот пример из DRKB на основе того же кода

[JimBeam]

Сообщение от Alegun

Вот пример из DRKB на основе того же кода

Огромнейшее Вам спасибо!