Bonjour,
Voilà, je souhaite pouvoir verifier si un service (onduleur, par ex.) est arreté.
Merci de votre aide.![]()
Bonjour,
Voilà, je souhaite pouvoir verifier si un service (onduleur, par ex.) est arreté.
Merci de votre aide.![]()
QRs en cours d'intégration dans la FAQ, c'est redondant avec le lien proposé mais au cas où...
Lien MSDN : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dllproc/base/openscmanager.asp[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.
Ici le handle récupéré est un handle sur un SCM, c'est-à-dire une base de données de services.
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;
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/queryservicestatus.asp?frame=trueComment 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.
Le dernier paramètre indique le type d'accès souhaité.
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)
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 :
TServiceStatus.dwCurrentState peut avoir une des valeurs suivantes :
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;
- 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.');
Tutoriels Delphi Win32/Delphi .NET/Oracle/PowerShell - FAQ Delphi - FAQ Delphi .NET
Beatus, qui prodest, quibus potest.
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....![]()
![]()
Oui et pas qu'un peu ! Delphi 2005 + Xp pro SP1Envoyé par kikica
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 ?
Tutoriels Delphi Win32/Delphi .NET/Oracle/PowerShell - FAQ Delphi - FAQ Delphi .NET
Beatus, qui prodest, quibus potest.
Delphi 7 perso, xp sp1.
message :
(pour commencer)Undeclared identifier : SC_Handle
Merci...![]()
![]()
![]()
La page en question mentionne :Envoyé par qi130
Code : Sélectionner tout - Visualiser dans une fenêtre à part uses WinSvc;
![]()
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 ?![]()
Lurent Dardenne a écrit: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.Si tu es sous XP, as-tu essayé avec l'utilitaire en ligne de commande SC.EXE ?
Ce code :me parraît assez simple et bon, mais j'ai toujours une erreur. Lorsque je met en Uses "WinSvc", j'ai cele-là:
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)
Undeclared identifier : 'Handle_SCM'![]()
![]()
T'a raison Kikica, chez moi ça ne marche pas non plus...![]()
![]()
Essaies ceci:
Voici l'appel pour le service onduleur:
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;
Sans oublier le uses WinSvc
Code : Sélectionner tout - Visualiser dans une fenêtre à part if EtatDuService('UPS') = 1 then showmessage('Service onduleur arrété');![]()
Je vérifie ça demain matin !
Tutoriels Delphi Win32/Delphi .NET/Oracle/PowerShell - FAQ Delphi - FAQ Delphi .NET
Beatus, qui prodest, quibus potest.
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
doit être
Code : Sélectionner tout - Visualiser dans une fenêtre à part If Handle_Service<>0
Tu avais donc raison.
Code : Sélectionner tout - Visualiser dans une fenêtre à part If Handle_Service=0
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
Tutoriels Delphi Win32/Delphi .NET/Oracle/PowerShell - FAQ Delphi - FAQ Delphi .NET
Beatus, qui prodest, quibus potest.
Partager