Как корректно обнаружить выключение Windows для сервисов под учетной записью SYSTEM в Delphi

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

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

Проблема

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

Решение

Для решения этой проблемы можно использовать несколько подходов. Один из них заключается в том, чтобы сервис сам уведомлял подчиненное приложение о необходимости завершения работы. Это можно сделать, переопределив метод DoShutDown класса TService, который вызывается при получении уведомления о завершении работы от менеджера служб Windows.

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

Пример кода

procedure TServiceApplication.DoShutDown(ShutdownReason: TServiceShutdownReason);
begin
  // Логика завершения работы приложения
  // Например, сохранение данных, закрытие соединений и т.д.
end;

Или, если необходимо самостоятельно отправить сообщение WM_ENDSESSION:

var
  HWND_FormsApplication: HWND;
begin
  HWND_FormsApplication := FindWindow(nil, 'Forms Application');
  if Assigned(HWND_FormsApplication) then
    PostMessage(HWND_FormsApplication, WM_ENDSESSION, TRUE, 0);
end;

Важные замечания

Рассматриваемая в статье проблема связана с запуском приложений, предназначенных для работы с пользовательским интерфейсом, под учетной записью SYSTEM. Это считается не лучшей практикой, так как учетная запись SYSTEM предназначена для работы системных процессов, а не приложений с пользовательским интерфейсом.

Заключение

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

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

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

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

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

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

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