Discussion :

[isachat666]

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

[Eric Boisvert]

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

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
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?

[nut62]

pas mal.
Ce serait bien dans la FAQ delphi ça non ?

[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

[Laurent Dardenne]

Salut,

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.

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 ?