Création d’un service Windows

Définition

Un service Windows est un programme qui fonctionne en arrière-plan. Son mode de fonctionnement est similaire à un daemon Unix. Par rapport à un programme positionné dans l’AutoRun, son avantage est qu’il ne nécessite pas qu’un utilisateur soit logué pour qu’il démarre.

D’un point de vue général, un service est dédié à des traitements qui ne nécessitent aucune interaction utilisateur. Avant Windows Vista, il était possible de faire interagir un service avec le bureau Windows si un utilisateur était logué mais depuis Windows Vista, Microsoft a décidé d’isoler l’exécution des services dans la session 0 où aucun utilisateur ne peut interagir. Il existe des astuces de codage pour contourner cette limitation si le développeur doit garder ce mode interactif dans un environnement supérieur à Windows Vista. Dans ce cas, il est conseillé de revoir le design de l’application pour garder l’exécution du service en session 0 en prévoyant une autre application de type form en session utilisateur qui pilote le service.

Dans les versions serveurs récentes de Windows (Windows Server 2016 ou ultérieure), la configuration de l’OS peut provoquer des erreurs système quand on essaye de créer une fenêtre...

Configuration

La configuration d’un service permet de définir son type d’exécution, le compte auquel il est associé et les dépendances éventuelles du service.

Implémentation

Microsoft a fourni tout un développement Pack pour implémenter et utiliser un service à partir de Windows NT 3.51. Il s’agit du Service Control Manager qui expose un nombre important d’API. Delphi XE fournit tout un framework rendant l’utilisation de service beaucoup plus simple.

Ainsi, pour créer un service, utilisons le wizard fourni par Delphi en le faisant apparaître par File - New - Other et choisissons Windows Service dans l’arborescence Delphi - Windows comme dans la capture ci-dessous :

Delphi génère un fichier dpr et un fichier source pascal.

Le fichier dpr se présente ainsi :

program ServiceExemple; 
 
uses 
 Vcl.SvcMgr, 
 UServiceExemple in 'UServiceExemple.pas' {Service1: TService}; 
 
{$R *.RES} 
 
begin 
 if not Application.DelayInitialize or Application.Installing then 
 Application.Initialize; 
 Application.CreateForm(TService1, Service1); 
 Application.Run; 
end. 

On remarque que le type de binaire est un programme (program). Lors de la sauvegarde, le nom ServiceExemple a été choisi. Le binaire qui sera généré sera ServiceExemple.exe, mais cela ne sera pas forcément le nom publié dans le gestionnaire de service.

On remarque aussi l’inclusion de l’unité Vcl.SvcMgr qui porte l’encapsulation des API Windows permettant de manipuler les services.

Le fichier source, quant à lui, se présente ainsi :

unit UServiceExemple; 
 
interface 
 
uses 
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, 
Vcl.Graphics, Vcl.Controls, Vcl.SvcMgr, Vcl.Dialogs; 
 
type 
 TService1 = class(TService) 
 private 
 public 
   function GetServiceController: TServiceController; override; 
   { Déclarations publiques } 
 end; 
 
var 
 Service1: TService1; 
 
Implementation 
{$R *.dfm} 
 
procedure ServiceController(CtrlCode: DWord); stdcall; 
begin 
 Service1.Controller(CtrlCode); 
end; 
 
function TService1.GetServiceController: TServiceController; 
begin 
 Result := ServiceController; 
end; ...

Débogage de service Windows

unit ULog; 
 
interface 
 
uses Classes,System.IOUtils,SyncObjs; 
 
type TLog = class(TObject) 
 private 
   FFileName:string; 
   FFileExt:string; 
   FMaxFileCount: int64; 
   FMaxFileSize : int64; 
   FCurrentFileIndex:integer; 
   FCurrentCompleteFileName:string; 
   FLock:TCriticalSection; 
   FWriter:TStreamWriter; 
   FStream:TFileStream; 
   function GetCurrentFileSize:int64; 
   function DetectLogToComplete:integer;  
   procedure RotateFileName; 
   procedure OpenLog; 
   procedure CloseLog; 
 public 
   constructor Create(aFileName, 
aFileExtension:string; 
aFileSize,afilecount:int64); reintroduce; 
   destructor Destroy;override; 
   procedure WriteLog(aTextLine:string); 
end;