Discussion :

[esa]

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

[gord's]

voila un bout de code à adapter:

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

[esa]

Cool man, merci beaucoup

[esa]

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

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

[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

[esa]

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

Thx, you rock 8)

[esa]

SERVICE_CHANGE_CONFIG