Interception des messages Windows dans un service

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 !

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 ?

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. :sm:

Code:

---

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