Vérifier si un service est arrêté

Version imprimable

05/10/2005, 15h10
kikica

Vérifier si un service est arrêté

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

Merci de votre aide. :lol:
05/10/2005, 17h15
qi130

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

QRs en cours d'intégration dans la FAQ, c'est redondant avec le lien proposé mais au cas où...
Citation:
[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:

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:

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
Citation:
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:

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:

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:

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

17/10/2005, 17h52
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.... :arf: :arf:
17/10/2005, 17h59
Laurent Dardenne

Citation:

Envoyé par kikica

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 ?
17/10/2005, 19h40
kikica

Delphi 7 perso, xp sp1.

message :

Citation:

Undeclared identifier : SC_Handle

(pour commencer)

Merci... :roll: :lol: :D
17/10/2005, 22h37
qi130

Citation:

Envoyé par qi130

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

La page en question mentionne :

Code:

uses WinSvc;

:?
18/10/2005, 09h12
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 ? :roll:

Lurent Dardenne a écrit:

Citation:

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:

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à:

Citation:

Undeclared identifier : 'Handle_SCM'

:roll: :arf:

18/10/2005, 14h57
Mariussy

T'a raison Kikica, chez moi ça ne marche pas non plus... :evil: 8O

Essaies ceci:

Code:

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:

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

Sans oublier le uses WinSvc :lol:

18/10/2005, 19h19
Laurent Dardenne

Je vérifie ça demain matin !
19/10/2005, 13h03
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:

If Handle_Service<>0

doit être

Code:

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
19/10/2005, 15h01
kikica

MERCIII BEAUCOUP à tous, ça marche maintenant!!!
:bravo: :chin: :haha: :D