Discussion :

[Oxygn44]

Bonjour à tous,


J'ai écrit une procédure qui permet de vérifier le status d'un service Windows.
Mais il ne reconnait pas une variable Handle_SCM.
Dans la FAQ, je n'ai pas trouvé de déclaration de cette variable.
je ne sais pas comment faire.

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.StatusService(SvName:string);
      var
        SvHandle:SC_Handle; // handle du service
        SvStatus:TServiceStatus;
        SvEtat:Word;
      begin
        SvHandle:= OpenService(Handle_SCM, PChar(SvName), SERVICE_ALL_ACCESS);
        QueryServiceStatus(SvHandle, SvStatus);
        SvEtat:=SvStatus.dwCurrentState;
      end;

[evarisnea]

selon l'api Windows, Handle_SCM est le handle de la base de données du Service Control Manager retourné par la fonction OpenSCManager.

je te propose donc d'adapter ton code ainsi qu'il suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.StatusService(SvName:string);
      var
        SvHandle:SC_Handle; // handle du service
        Handle_SCM:THandle;
        SvStatus:TServiceStatus;
        SvEtat:Word;
      begin
        Handle_SCM := OpenSCManager(nil, nil, 0);
        SvHandle:= OpenService(Handle_SCM, PChar(SvName), SERVICE_ALL_ACCESS);
        QueryServiceStatus(SvHandle, SvStatus);
        SvEtat:=SvStatus.dwCurrentState;
        CloseServiceHandle(SvHandle);
        CloseServiceHandle(Handle_SCM);
      end;