Как получить дескриптор главного окна приложения, запущенного под другой учетной записью в Windows?

Delphi , Синтаксис , Справочник по API-функциям

Введение

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

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

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

Использование функции EnumWindows работает хорошо, пока все экземпляры запущены под одной и той же учетной записью, так как EnumWindows не перечисляет окна, принадлежащие другому пользователю. Попытка использовать CreateToolhelp32Snapshot для перечисления всех запущенных процессов в системе и последующего перечисления потоков с помощью EnumThreadWindows также не приводит к успеху, так как потоки, принадлежащие другому пользователю, не перечисляются.

Решение проблемы

Для решения проблемы рекомендуется использовать глобальные события, которые могут быть доступны для процессов, работающих под разными учетными записями. Создание события с помощью функции CreateEvent и указание глобального пространства имен (Global\) позволит использовать это событие для индикации необходимости закрытия процессов. Обновляющий модуль должен инициировать это событие, а приложение должно обрабатывать его и отправлять соответствующее сообщение для закрытия.

Пример кода

uses
  Winapi.Windows, Winapi.Messages;

procedure TForm1.FormCreate(Sender: TObject);
var
  hEvent: THandle;
begin
  hEvent := CreateEvent(nil, True, False, 'Global\MyApplicationShutdownEvent');
  if hEvent = 0 then
    RaiseLastOSError;

  // Создание потока, который будет ожидать сигнала от события
  CreateThread(nil, 0, @CheckEvent, hEvent, 0, nil);
end;

function CheckEvent(hEvent: THandle): Cardinal;
var
  dwWaitResult: DWORD;
begin
  Result := 0;

  repeat
    dwWaitResult := WaitForSingleObject(hEvent, INFINITE);
    if dwWaitResult = WAIT_OBJECT_0 then
    begin
      // Здесь код для обработки закрытия приложения
      SendMessage(Handle, WM_CLOSE, 0, 0);
      // Закрытие события
      CloseHandle(hEvent);
      Exit;
    end;
  until False;
end;

procedure TForm1.UpdateApplication;
begin
  // Инициализация обновления
  // ...

  // Перед обновлением отправляем сигнал для закрытия всех экземпляров
  SetEvent(OpenEvent(SYNCHRONIZE, False, 'Global\MyApplicationShutdownEvent'));
end;

Заключение

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

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

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

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

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

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

:: Главная :: Справочник по API-функциям ::