Implémentation Service Windows: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...