Как проверить закрытие приложения App1 с помощью его дескриптора?

Delphi , Программа и Интерфейс , EXE файл

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

Обсуждение проблемы и предоставленный контекст

В контексте заданного вопроса представлены примеры кода на языке Object Pascal (Delphi), который используется для работы с процессами. Однако, в примере кода App2, ожидание закрытия процесса происходит неправильно, и сообщение об окончании работы App1 отображается сразу же после запуска, что указывает на ошибку в логике ожидания.

Подтвержденное решение

Чтобы решить эту проблему, необходимо использовать дескриптор процесса, а не окна, и передать его от App1 к App2. Для получения дескриптора процесса App1 используется функция OpenProcess с GetCurrentProcessId или DuplicateHandle с GetCurrentProcess. Полученный дескриптор передается App2, который ожидает завершения работы App1 с помощью WaitForSingleObject. После сигнализации дескриптора (когда App1 завершает работу), App2 может закрыть дескриптор и заменить файл App1.exe.

Альтернативный ответ и дополнительные замечания

В альтернативном ответе подчеркивается важность использования дескриптора, который может быть унаследован дочерними процессами, и необходимость правильного использования функций OpenProcess и CreateProcess для передачи дескриптора. Также упоминается, что не требуется полный доступ к процессу, достаточно синхронизации, и важно проверять возвращаемые значения функций.

Примеры кода

Вот примеры кода, которые демонстрируют правильное использование дескриптора процесса:

// В App1
var
  ProcessHandle: THandle;
begin
  ProcessHandle := OpenProcess(PROCESS_QUERY_INFORMATION, False, GetCurrentProcessId);
  // Необходим только доступ к информации о процессе, синхронизация не нужна
  // ShellExecute не подходит для передачи дескриптора, используем CreateProcess
  CreateProcess(nil, PChar('App2.exe ' + IntToStr(ProcessHandle)), nil, nil, False, 0, nil, nil, nil, nil);
end;

// В App2
var
  SenderHandle: THandle;
begin
  if (ParamStr(1) <> '') then
  begin
    SenderHandle := StrToInt(ParamStr(1));
    if WaitForSingleObject(SenderHandle, INFINITE) = WAIT_OBJECT_0 then
    begin
      // Процесс App1 завершился, можно выполнять замену файла
      ShowMessage('App1 Terminated!');
      // Закрываем дескриптор
      CloseHandle(SenderHandle);
    end
    else
    begin
      // Ожидание завершилось с ошибкой
      ShowMessage('Wait Failed!');
    end;
  end;
end;

Заключение

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

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

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

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

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

:: Главная :: EXE файл ::