Discussion :

[TheFreeBerga]

Bonjour à toutes & à tous,

Je voudrais transformer un programme de contrôle parental en service windows.
Je butte sur un seul problème: intercepter les messages windows au sein du service, tel que Ouverture/Fermeture de session/windows.

Les objets de base pour travailler avec les services étant TCustomDaemon, TCustomDaemonMapper et le TThread, ceux-ci n'ont me semble t-il aucune méthode d'interception des messages windows systèmes.

Merci d'avance pour votre aide !

[TheFreeBerga]

A force de chercher, on trouve...ou presque !

Il semblerait que le salut se trouve dans la fonction RegisterServiceCtrlHandlerEx() mais je sèche quant à l'utiliser correctement...

Quelqu'un sait-il comment faire ?

[Iwoks]

Bonjour, as-tu avancé sur ce sujet ?

Effectivement tu as raison sur la fonction.

Voici ce qui peut t'aider.
Il faut d'abord trouver le Handle de ton service.
Utilise la fonction FindWindows pour récupérer son adresse Handle;
Après tu Créer un Enregistrement de contrôle d'événement pour ce service et tu l'associe à a ton processus.

Voici un exemple à la grosse.
Je n'ai pas tester le code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
program test
 
uses windows, jwawinsvc, Classes, SysUtils, FileUtil;
 
 Var
  hwindow : THandle;
  ClassName : String;
  Cname :  array[0..255] of char;
 
function MyServiceControlHandlerEntry(dwControl,dwEventType: DWord; lpEventData,lpContext : Pointer) : DWord; StdCall;
const
  SErrNoControlContext = 'Not handling Control message without control context: (%d %d %d).';
begin
    If (Nil<>lpContext) then
      begin
        CallLog('MyServiceController: '+Format('ControlCode - EventType : %d - %d',[dwControl,dwEventType]));
        TDaemonController(lpContext).Controller(dwControl,dwEventType,lpEventData)
      end
    else
      Application.Log(etError,Format(SerrNoControlContext,[dwControl,dwEventType,lpEventData]));
   result:=NO_ERROR;
end;
 
  Begin
   ClassName := 'SystemTray Main';
   StrPCopy(Cname, ClassName);
   MYDAEMON_NAME:= FindWindow(CName,nil);
   T:=RegisterServiceCtrlHandlerEx(MYDAEMON_NAME,@MyServiceControlHandlerEntry,Controller);
  end.

Si tu souhaites créer un Service tu peux en communicant avec SVCHOST.EXE
Soit en TProcess, soit par APIWindows, soit par Thread. (J'ai vue différente technique, mais je n'ai jamais testé)
Ensuite pour le démarrage de ton service il faut implémenté dans le registre Windows.

Cldit.
Iwoks