Добрый вечер! Имеется форма, на которой расположена кнопка, по нажатии которой, открывается сторонняя программа через
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;
Заранее спасибо!
