Shellexecute Delphi Дождаться Завершения

ShellExecute - это функция в Delphi для запуска внешних приложений в операционной системе Windows. Однако, иногда необходимо дождаться завершения выполнения запущенного процесса, особенно когда результат влияет на дальнейшую работу программы.

Для этого можно использовать функцию WaitForSingleObject из Windows API, которая позволяет подождать завершения процесса до определенного момента времени или бесконечно:

var  ProcessInfo: TProcessInformation;begin  ZeroMemory(@ProcessInfo, SizeOf(TProcessInformation));  if ShellExecute(0, 'open', 'notepad.exe', nil, nil, SW_SHOWNORMAL) > 32 then  begin    if WaitForSingleObject(ProcessInfo.hProcess, INFINITE) = WAIT_OBJECT_0 then    begin      ShowMessage('Notepad has been closed.');    end;  end;end;

В этом примере запускается блокнот и программа ждет его завершения. Если Notepad.exe был запущен успешно и успешно завершился, то всплывает сообщение «Notepad has been closed».