[Service] Changer le mode de demarrage ?

Version imprimable

10/11/2003, 14h12
esa

[Service] Changer le mode de demarrage ?

J'ai developpé un service qui utilise le service FirebirdServer.
Mon install permet aussi d'installer FirebirdServer si pas existant, mais je ne peux pas le switcher en mode de demarrage automatique (sauf en allant manuellement le faire dans le gestionnaire Winshmurtz bien sur).

Comment puis-je changer ce mode de demarrage (manuel à automatique) d'un service déjà inscrit dans le gestionnaire des services avec une procedure delphi ?

PS: je sais deja comment le stopper et le relancer.

Merci d'avance :)

voila un bout de code à adapter:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
        if FServiceHandle<>0 then begin
            if v then
                FStartMode := SERVICE_AUTO_START
            else
                FStartMode := SERVICE_DEMAND_START;
            ChangeServiceConfig(FServiceHandle,
                                SERVICE_NO_CHANGE,
                                FStartMode,
                                SERVICE_NO_CHANGE,
                                nil,
                                nil,
                                nil,
                                nil,
                                nil,
                                nil,
                                PChar(FServiceName));
        end;
    end;

10/11/2003, 14h33
esa

:D

Cool man, merci beaucoup :wink:

:(

serai-je passé à coté de quelque chose ? Ca marche pas...

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
uses WinSvc;
...
procedure PushAutoMode(sMachine, FServiceName: string);
var schm,            // handle du service control manager
    schs: SC_Handle; // handle du service
begin
  // connection au service control manager
  schm := OpenSCManager(PChar(sMachine), Nil, SC_MANAGER_CONNECT);
  if(schm > 0)then  // si OK...
  begin
    // handle du service FServiceName
    schs := OpenService(schm, PChar(FServiceName), SERVICE_START or SERVICE_QUERY_STATUS);
    if(schs > 0)then  // si OK...
    begin
      // Hop, en automatique :o)
      ChangeServiceConfig(schs,                 // SC_HANDLE
                          SERVICE_NO_CHANGE,    // DWORD
                          SERVICE_AUTO_START,   // DWORD
                          SERVICE_NO_CHANGE,    // DWORD
                          nil,                  // PChar
                          nil,                  // PChar
                          nil,                  // LPDWORD
                          nil,                  // PChar
                          nil,                  // PChar
                          nil,                  // PChar
                          PChar(FServiceName)); // PChar
    end;
  end;
end;

10/11/2003, 15h27
gord's

dans l'ouverture du handle de service, il faut demander les droits de modif, là tu ne demande que les droits de lecture et de démarrage

Je ne peux pas te filer la valeur pour le moment, je suis en cours de réinstall Delphi
10/11/2003, 15h36
esa

ha !!!! exact !!! je chui fatigué LOL

Thx, you rock 8)
10/11/2003, 15h38
esa

SERVICE_CHANGE_CONFIG