Объединение автономности и сервисного функционала: создание универсального приложения на Delphi

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

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

Подходы к решению

Существует несколько подходов к решению данной задачи. Один из них заключается в создании двух фреймовых приложений: одно для автономного использования и другое для работы в качестве сервиса. Затем можно создать один BPL/DLL, который будет встраиваться в оба контейнера. Это позволяет использовать общий код для обоих приложений.

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

Пример реализации

Для реализации универсального приложения можно использовать следующий подход:

if SvComFindCommand('config') then begin
  // Запуск приложения в режиме конфигурации.
  Forms.Application.Initialize;
  Forms.Application.CreateForm(TfrmConfig, frmConfig);
  Forms.Application.Run;
end
else begin
  // Запуск приложения в режиме сервиса.
  SvCom_NTService.Application.Initialize;
  SvCom_NTService.Application.CreateForm(TscmServiceSvc, scmServiceSvc);
  SvCom_NTService.Application.Run;
end;

В приведенном выше коде используется компонент SvCom для запуска приложения как сервиса. Однако аналогичный эффект можно достичь и с использованием стандартного TService.

Использование определения для идентификации режима работы

Возможно использование глобального определения для идентификации режима работы приложения. Например, в проекте на Delphi 5 можно определить переменную IsDesktopMode, которая будет указывать, работает ли приложение в автономном режиме или как сервис.

program TestSvc;
uses
  SvcMgr,
  SvcMain, // Единица, содержащая TTestService, наследуемую от TService
  ...
  ;
var
  IsDesktopMode: Boolean;
...
begin
  if (Win32Platform <> VER_PLATFORM_WIN32_NT) or FindCmdLineSwitch('S', ['-', '/'], True) then
    IsDesktopMode := True
  else begin
    IsDesktopMode := not FindCmdLineSwitch('INSTALL', ['-', '/'], True) and
      not FindCmdLineSwitch('UNINSTALL', ['-', '/'], True) and
      not IsServiceRunning;
  end;
...
if IsDesktopMode then begin // Режим автономной работы
  // Инициализация и запуск приложения
end
else begin // Режим сервиса
  // Инициализация и запуск сервиса
end;

Альтернативные решения

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

Заключение

Объединение автономного приложения и функционала Windows-сервиса возможно и реализуемо в среде Delphi. Выбор подхода зависит от конкретных требований проекта и предпочтений разработчика.

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

Объединение автономного приложения и функционала Windows-сервиса в одной программе на Delphi.

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

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

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