Ожидание завершения внешнего приложения в Delphi: инструкции и примеры

Delphi , Синтаксис , API реализация

Вопрос, представленный в контексте, заключается в поиске способа для приложения на Delphi ожидать завершения загрузки запущенного внешнего приложения перед продолжением своей работы. Это может быть необходимо, например, если приложение запускает такие программы, как Microsoft Word, загрузка которой может занять некоторое время из-за установленных плагинов.

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

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

Пример кода на Object Pascal (Delphi)

uses
  ShellAPI;

function ExecuteAndWait(const FileName, Operation, Parameters: string): Boolean;
var
  hProcess: THandle;
  ProcessInfo: PROCESS_INFORMATION;
begin
  // Запуск внешнего приложения
  if ShellExecute(0, nil, PChar(FileName), PChar(Parameters), 0, SW_SHOWNORMAL) < 32 then
    Exit(False);

  // Получение дескриптора процесса
  if CreateProcess(nil, PChar(Operation + ' "' + FileName + '" ' + Parameters), nil, nil, False,
    NORMAL_PRIORITY_CLASS, nil, nil, ProcessStartupInfo, ProcessInfo) then
  begin
    hProcess := ProcessInfo.hProcess;
    // Ожидание завершения процесса
    WaitForSingleObject(hProcess, INFINITE);
    CloseHandle(hProcess);
  end;
  Result := True;
end;

var
  StartupInfo: TStartupInfo;
begin
  ZeroMemory(@StartupInfo, SizeOf(TStartupInfo));
  StartupInfo.cb := SizeOf(TStartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := SW_SHOW;

  if ExecuteAndWait('C:\path\to\app.exe', '', 'some parameters') then
    // Запущенное приложение завершило загрузку, продолжаем работу
    ShowMessage('App loaded and closed');
end.

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

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

uses
  ShellAPI;

var
  hProcess: THandle;

begin
  // Запуск внешнего приложения
  if ShellExecute(0, nil, PChar('C:\path\to\app.exe'), nil, nil, SW_SHOW) > 32 then
  begin
    hProcess := OpenProcess(PROCESS_QUERY_INFORMATION, False, ResultLongInt);
    if hProcess <> 0 then
    begin
      // Ожидание готовности приложения к вводу данных
      if WaitForInputIdle(hProcess, 5000) then
        // Приложение готово к вводу данных
        ShowMessage('App is ready for input');
      else
        ShowMessage('Timeout waiting for app to be idle');
    end;
    CloseHandle(hProcess);
  end;
end.

Заключение

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

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

Вопрос связан с необходимостью приложения на Delphi ожидать завершения загрузки внешнего приложения перед продолжением своей работы.

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

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

:: Главная :: API реализация ::