[JimBeam]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

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 на основе того же кода

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