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;
Partager