Discussion :

[kikica]

Bonjour,
Voilà, je souhaite pouvoir verifier si un service (onduleur, par ex.) est arreté.

Merci de votre aide.

[qi130]

http://www.chami.com/tips/delphi/031498D.html

[Laurent Dardenne]

QRs en cours d'intégration dans la FAQ, c'est redondant avec le lien proposé mais au cas où...

[QR]Comment se connecter au Service Control Manager ?
On utilise l'API OpenSCManager.
Si le premier paramètre qui est le nom de la machine cible, est vide ou est à NIL alors la connexion se fait sur la machine locale.
Si le second paramètre est à NIL, la base de données SERVICES_ACTIVE_DATABASE est ouverte par défaut.
Le troisième paramètre indique le type d'accès demandé. Le système vérifie le profil de sécurité de l'appelant.

Code :

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

1
2
3
4
5
6
7
 
Function ConnectToServicesManager(Computer_Name   : String;
                                  Var AHandle_SCM : SC_Handle):Boolean;
Begin
 AHandle_SCM:= OpenSCManager(PChar(Computer_Name), nil, SC_MANAGER_ALL_ACCESS);
 Result :=AHandle_SCM <> 0;
end;

Ici le handle récupéré est un handle sur un SCM, c'est-à-dire une base de données de services.

ATTENTION chaque handle obtenu par un appel à OpenSCManager devra être libéré par un appel à CloseServiceHandle.

On aura souvent au moins 2 handles à libérer :

• un pour le SCM
• et un pour un objet service qu'on souhaite interroger.

Code :

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

1
2
3
4
5
 
If Handle_Service <> 0 then
   CloseServiceHandle(Handle_Service);
If Handle_SCM <> 0 then
 CloseServiceHandle(Handle_SCM);CloseServiceHandle(Handle_Service);

Lien MSDN : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dllproc/base/openscmanager.asp

Comment déterminer l'état courant d'un service ?
L'opération se fait en 2 temps, on doit d'abord obtenir un handle sur le service en appelant OpenService en lui passant en paramètre le handle obtenu lors de l'appel à OpenSCManager.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var
 NomService : String;
 Handle_Service :SC_Handle; // handle du service
 Status_Service : TServiceStatus; 
 
begin 
 NomService:='Client DHCP';
 Handle_Service := OpenService(Handle_SCM, PChar(NomService), SERVICE_ALL_ACCESS);
 If Handle_Service<>0 
  then ShowMessage('Erreur lors de l'ouverture du service :'+NomService)

Le dernier paramètre indique le type d'accès souhaité.
Si la fonction échoue elle renvoie Zéro.

Ensuite on peux accéder au statut du service par l'appel à l'API QueryServiceStatus, elle utilise le handle du service interrogé.
On récupère les informations dans une structure de type TServiceStatus :

Code :

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

1
2
3
4
5
6
 
 Else 
  begin
   QueryServiceStatus(Handle_Service, Status_Service);
   EtatDuService:=Status_Service.dwCurrentState;
  end;

TServiceStatus.dwCurrentState peut avoir une des valeurs suivantes :

• SERVICE_CONTINUE_PENDING :
  Le service est en train d'être relancé après une opération continue
• SERVICE_PAUSE_PENDING :
  le service est en train d'être relancé après une opération pause
• SERVICE_PAUSED :
  Le service est en pause
• SERVICE_RUNNING :
  Le service est démarré
• SERVICE_START_PENDING :
  Le service est en cours de démarrage
• SERVICE_STOP_PENDING :
  Le service est en cours d'arrêt
• SERVICE_STOPPED:
  Le service est stoppé

Cette API fonctionne sous NT 4, Microsoft recommande d'utiliser pour les plates-formes plus récentes l'API QueryServiceStatusEx.

ATTENTION chaque handle obtenu par un appel à OpenService devra être libéré par un appel à CloseServiceHandle.

Code :

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

1
2
3
 
 if Not CloseServiceHandle(Handle_Service) 
   then ShowMessage('Erreur : le handle spécifié est invalide.');

Lien MSDN : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dllproc/base/queryservicestatus.asp?frame=true

[kikica]

Merci les gars pour la bonne volonté, mais rien de tout ça ne marche pas!
J'ai toujours une erreur. Vous êtes sûr d'avoir essayé ce côde?
Désolé, mais....

[Laurent Dardenne]

J'ai toujours une erreur. Vous êtes sûr d'avoir essayé ce côde ?

Oui et pas qu'un peu ! Delphi 2005 + Xp pro SP1

Quelle version de Delphi, de l'OS et quel est le pb exactement.
Si tu es sous XP, as-tu essayé avec l'utilitaire en ligne de commande SC.EXE ?

[kikica]

Delphi 7 perso, xp sp1.

message :

Undeclared identifier : SC_Handle

(pour commencer)

Merci...

[qi130]

http://www.chami.com/tips/delphi/031498D.html

La page en question mentionne :

Code :

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

uses WinSvc;

[kikica]

Même, avec WinSvc c'est la même erreur...encore pire :

dwStat := -1; ne passe pas!!! dwStat est déclaré en tant que DWord, et il ne supporte pas les -1, -2, etc.

As-tu essayé le côde ?

[kikica]

Lurent Dardenne a écrit:

Si tu es sous XP, as-tu essayé avec l'utilitaire en ligne de commande SC.EXE ?

Ce que je veux c'est de tester la bonne execution d'un service à distance, et de façon automatique. Donc, si je dois tout faire par la ligne de commande, c'est pas très drôle.
Ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
var 
 NomService : String; 
 Handle_Service :SC_Handle; // handle du service 
 Status_Service : TServiceStatus; 
 
begin 
 NomService:='Client DHCP'; 
 Handle_Service := OpenService(Handle_SCM, PChar(NomService), SERVICE_ALL_ACCESS); 
 If Handle_Service<>0 
  then ShowMessage('Erreur lors de l'ouverture du service :'+NomService)

me parraît assez simple et bon, mais j'ai toujours une erreur. Lorsque je met en Uses "WinSvc", j'ai cele-là:

Undeclared identifier : 'Handle_SCM'

[Mariussy]

T'a raison Kikica, chez moi ça ne marche pas non plus...

[delphichem]

Essaies ceci:

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
function EtatDuService(S: String): Integer;
var AHandle_SCM, Handle_Service: SC_Handle;
  Status_Service: TServiceStatus;
begin
  Result := -1;
  AHandle_SCM := OpenScManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  if (AHandle_SCM > 0) then
  begin
    Handle_Service := OpenService(AHandle_SCM, PChar(s), SERVICE_ALL_ACCESS);
    if (Handle_Service > 0) then
    begin
      if (not (QueryServiceStatus(Handle_Service, Status_Service))) then
        ShowMessage('Erreur lors de l''ouverture du service :' + s)
      else
        Result := Status_Service.dwCurrentState;
      CloseServiceHandle(Handle_Service);
    end
    else
      ShowMessage('Erreur lors de l''ouverture du service :' + s);
    CloseServiceHandle(AHandle_SCM);
  end;
end;

Voici l'appel pour le service onduleur:

Code :

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

if EtatDuService('UPS') = 1 then showmessage('Service onduleur arrété');

Sans oublier le uses WinSvc

[Laurent Dardenne]

Je vérifie ça demain matin !

[Laurent Dardenne]

Suite à la recopie dans la QR il y a bien 2 erreurs
le nom de service n'est pas 'Client DHCP' mais 'DHCP' et le test suivant

Code :

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

If Handle_Service<>0

doit être

Code :

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

If Handle_Service=0

Tu avais donc raison.

Au lieu de recopier les autres QR voici le programme proposé par Portu qui permet de manipuler le SCM et est à l'origine de ces nombreuses QR sur le sujet.

Http://laurent-dardenne.developpez.c...icemanager.zip

Si vous voulez + de détail -> MSDN

[kikica]

MERCIII BEAUCOUP à tous, ça marche maintenant!!!