Использование ShellExecute в Delphi: как определить завершение запущенного приложения?

Delphi , ОС и Железо , Windows

Название статьи:

Использование ShellExecute в Delphi: как определить завершение запущенного приложения?

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

Описание проблемы

Когда вы запускаете внешнее приложение, например, с помощью MySql.exe, и хотите отследить момент его завершения, возникает проблема. Функция ShellExecute не предоставляет прямых механизмов для отслеживания состояния запущенного процесса. Это может быть критично, например, для асинхронной обработки данных или для продолжения выполнения программы после завершения внешнего приложения.

Разбор решения

Для решения этой проблемы необходимо использовать функцию ShellExecuteEx, которая возвращает информацию о запущенном процессе. Вместо ShellExecute, который используется для запуска процесса и немедленно возвращает управление, ShellExecuteEx возвращает структуру PROCESS_INFORMATION, содержащую дескриптор процесса. Этот дескриптор можно использовать для ожидания завершения процесса.

function ExecAppAndWait(const sApp, sParams: String; wShow: Word; sCurrentDirectory: String = ''): DWord;
var
  aSI: TStartupInfo;        // Win32: STARTUPINFO
  aPI: TProcessInformation; // Win32: PROCESS_INFORMATION
  aProc: THandle;            // Win32
  aCurrentDirectory: PChar;
  s: String;
begin
  s := sApp + ' ' + sParams;
  FillChar(aSI, SizeOf(aSI), 0);
  aSI.cb := SizeOf(aSI);
  aSI.wShowWindow := wShow;
  aSI.dwFlags := STARTF_USESHOWWINDOW;

  if sCurrentDirectory = '' then
    aCurrentDirectory := nil
  else
    aCurrentDirectory := PChar(sCurrentDirectory);

  Win32Check(CreateProcess(nil, PChar(s), nil, nil,
                   False, Normal_Priority_Class, nil, aCurrentDirectory, aSI, aPI));

  aProc := aPI.hProcess;
  CloseHandle(aPI.hThread);

  if WaitForSingleObject(aProc, INFINITE) <> WAIT_FAILED then
    GetExitCodeProcess(aProc, Result);

  CloseHandle(aProc);
end;

Функция ExecAppAndWait запускает приложение с указанными параметрами и ожидает его завершения. Используется функция CreateProcess для запуска процесса и возвращаемый ею дескриптор процесса передается в функцию WaitForSingleObject, которая ожидает завершения процесса. После этого с помощью GetExitCodeProcess можно получить код завершения процесса.

Альтернативный ответ

Также стоит обратить внимание, что если ваша цель - просто определить завершение процесса, а не получать дополнительную информацию, можно использовать только ShellExecuteEx без последующего вызова CreateProcess напрямую. Это позволит получить дескриптор процесса, который можно использовать с WaitForSingleObject для ожидания завершения процесса.

Подтвержденный ответ

Использование функции ExecAppAndWait является подтвержденным решением для запуска внешнего приложения и ожидания его завершения. Эта функция оборачивает вызов CreateProcess и позволяет вам контролировать выполнение внешнего приложения, не теряя фокуса на основном потоке вашего приложения на Delphi.

Заключение

Теперь, когда вы знаете, как запустить внешнее приложение и ждать его завершения, вы можете более гибко интегрировать внешние программы в свои Delphi-проекты. Это особенно полезно для сценариев, где необходимо синхронизировать выполнение внешних команд с основной логикой вашего приложения.

Создано по материалам из источника по ссылке.

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

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::