Comment gérer des services par programmation avec Delphi ?

Version imprimable

15/12/2005, 13h31
isachat666

Comment gérer des services par programmation avec Delphi ?

Bonjour,

J'ai deux services dont je connais le nom.

Je voudrais pouvoir tester leur état, et s'ils sont démarrés, les arrêter.

Je connais les commandes net start et net stop en ligne de commande mais comment fait-on cela en delphi ???

Merci de votre aide.

Isa

c'est mon cadeau de noël.... :lol:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
 
Function ReadServiceState(ComputerName:string;ServiceName:string):String;
var
  Srv_CtrlMngr: SC_Handle;
  Srv_Hwnd: SC_Handle;
  Srv_State : TServiceStatus;
begin
    Srv_CtrlMngr := OpenSCManager(PCHAR(ComputerName), nil, SC_MANAGER_ALL_ACCESS);
    if Srv_CtrlMngr = 0 then
    begin
        ReadServiceState := 'Déconnecté au services manager';
        exit;
    end;
    try
        Srv_Hwnd := OpenService(Srv_CtrlMngr, PChar(ServiceName), SERVICE_ALL_ACCESS);
        If Srv_Hwnd = 0 then
        begin
            ReadServiceState:='Le service n''existe pas!';
        end
        else
        begin
            QueryServiceStatus(Srv_Hwnd, Srv_State);
            Case Srv_State.dwCurrentState of
                SERVICE_STOPPED          : ReadServiceState := 'Service arrêté';
                SERVICE_START_PENDING    : ReadServiceState := 'SERVICE_START_PENDING';
                SERVICE_STOP_PENDING     : ReadServiceState := 'SERVICE_STOP_PENDING';
                SERVICE_RUNNING          : ReadServiceState := 'En exécution';
                SERVICE_CONTINUE_PENDING : ReadServiceState := 'SERVICE_CONTINUE_PENDING';
                SERVICE_PAUSE_PENDING    : ReadServiceState := 'SERVICE_PAUSE_PENDING';
                SERVICE_PAUSED           : ReadServiceState := 'En pause';
            else
                ReadServiceState := 'Etat inconnu';
            end;
            CloseServiceHandle(Srv_Hwnd);
        end;
    finally
        CloseServiceHandle(Srv_CtrlMngr);
    end;
end;
 
Function StartThisService(ComputerName:string;ServiceName:string):boolean;
var
  Srv_CtrlMngr: SC_Handle;
  Srv_Hwnd: SC_Handle;
  Arg:PChar;
begin
    StartThisService := FALSE;
    Srv_CtrlMngr := OpenSCManager(PCHAR(ComputerName), nil, SC_MANAGER_ALL_ACCESS);
    if Srv_CtrlMngr = 0 then
    begin
        exit;
    end;
    try
        Srv_Hwnd := OpenService(Srv_CtrlMngr, PChar(ServiceName), SERVICE_ALL_ACCESS);
        If Srv_Hwnd <> 0 then
        begin
            Arg:=nil;
            if StartService(Srv_Hwnd, 0, Arg)<>FALSE then
            begin
                StartThisService := TRUE;
            end;
            CloseServiceHandle(Srv_Hwnd);
        end;
    finally
        CloseServiceHandle(Srv_CtrlMngr);
    end;
end;
 
Function StopThisService(ComputerName:string;ServiceName:string):boolean;
var
  Srv_CtrlMngr: SC_Handle;
  Srv_Hwnd: SC_Handle;
  Srv_State : TServiceStatus;
begin
    StopThisService := FALSE;
    Srv_CtrlMngr := OpenSCManager(PCHAR(ComputerName), nil, SC_MANAGER_ALL_ACCESS);
    if Srv_CtrlMngr = 0 then
    begin
        exit;
    end;
    try
        Srv_Hwnd := OpenService(Srv_CtrlMngr, PChar(ServiceName), SERVICE_ALL_ACCESS);
        If Srv_Hwnd <> 0 then
        begin
            if ControlService(Srv_Hwnd, SERVICE_CONTROL_STOP, Srv_State)=TRUE then
            begin
                StopThisService := TRUE;
            end;
            CloseServiceHandle(Srv_Hwnd);
        end;
    finally
        CloseServiceHandle(Srv_CtrlMngr);
    end;
end;

reste à ajouter WinSvc dans la clause uses

ca devrait faire l'affaire?

15/12/2005, 15h14
nut62

pas mal.
Ce serait bien dans la FAQ delphi ça non ?
16/12/2005, 13h35
isachat666

Merci beaucoup ;-)

En fait j'ai retrouvé quelquechose d'équivalent dans les sources de notre programme mais je pense effectivement que cela aurait sa place dans la FAQ.

Isa
18/12/2005, 18h54
Laurent Dardenne

Salut,

Citation:

Envoyé par isachat666

je pense effectivement que cela aurait sa place dans la FAQ.

C'est déjà fait dans la prochaine version, à paraître très prochainement.

Citation:

13. Services Windows(12)
13.1. Création de service(1)
Comment connaître le répertoire et le nom de mon service ?
13.2. Gestion des services NT(11)
Introduction à la gestion des services NT
Comment démarrer un service ?
Comment déterminer l'état courant d'un service ?
Comment modifier l'état d'un service (Stop, Pause, ...) ?
Comment retrouver la liste des services dépendants d'un service ?
Comment se connecter au Service Control Manager ?
Comment lister les services référencés dans le SCM ?
Comment se déconnecter d'un Service Control Manager ?
Comment récupérer la configuration d'un service ?
Comment modifier la configuration d'un service ?
Comment obtenir le nom court ou long d'un service ?