Discussion :

[castorcharly]

Bonjour,

Je cherche le moyen de noter une description dans la description d'un service que j'ai fait sous XE2, de manière à ce que lorsque l'on est dans la gestion des services de Windows ont puisse consulter cette information.

Je ne trouve pas cette propriétés ni d'api permettant de le faire.

Merci pour votre aide.

[skywaukers]

Bonjour,

à ma connaissance il n'y en a pas, il faut le mettre manuellement dans la base de registre, après l'installation :

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
procedure TService1.ServiceAfterInstall(Sender: TService);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create(KEY_READ or KEY_WRITE);
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\SYSTEM\CurrentControlSet\Services\' + Name, false) then
    begin
      Reg.WriteString('Description', 'Description de mon service.');
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

@++
Dany

[Paul TOTH]

si j'en crois mon unité NTService, le nom du service est donné dans l'appel à CreateServiceA()

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
 
function Install(Name,Caption,Command:string):boolean;
 var
  scm:THandle;
  srv:THandle;
 begin
  Result:=False;
  scm:=OpenSCManagerA(nil, nil, SC_MANAGER_ALL_ACCESS);
  if scm=0 then exit;
  srv:= CreateServiceA(
   scm,
   PChar(Name), PChar(Caption),
   SERVICE_ALL_ACCESS,
   SERVICE_INTERACTIVE_PROCESS or SERVICE_WIN32_OWN_PROCESS,
   SERVICE_DEMAND_START, SERVICE_ERROR_NORMAL,
   PChar(Command),
   nil, nil, nil, nil, nil
  );
  if srv<>0 then begin
   Result:=True;
   CloseServiceHandle(srv);
  end;
  CloseServiceHandle(scm);
 end;

[castorcharly]

Bonjour,

à ma connaissance il n'y en a pas, il faut le mettre manuellement dans la base de registre, après l'installation :

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
procedure TService1.ServiceAfterInstall(Sender: TService);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create(KEY_READ or KEY_WRITE);
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\SYSTEM\CurrentControlSet\Services\' + Name, false) then
    begin
      Reg.WriteString('Description', 'Description de mon service.');
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

@++
Dany

Merci SkyWaukers,

j'avais vu cette entrée en BdR mais j'aurais préféré trouver une API, de manière à mettre à jour lors de l'install.
Je vais donc me reporter sur l'event AfterInstall du service pour placer cette description.

C'est bizarre que cette propriété ne soit pas présente dans Le Tservice de Delphi, il me semble que dans Visual studio elle existe pour la classe ServiceInstaller...

[castorcharly]

si j'en crois mon unité NTService, le nom du service est donné dans l'appel à CreateServiceA()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
function Install(Name,Caption,Command:string):boolean;
 var
  scm:THandle;
  srv:THandle;
 begin
  Result:=False;
  scm:=OpenSCManagerA(nil, nil, SC_MANAGER_ALL_ACCESS);
  if scm=0 then exit;
  srv:= CreateServiceA(
...

Bonjour Paul,

Je ne comprends pas bien ta réponse, mais peut être que ma question n'était pas très claire.

Il s'agit non pas d'installer un service, mais de pouvoir renseigner à un service que j'ai écris, l'entrée "Description" qui est visible lorsque tu ouvres la gestion des services de Windows.

[ShaiLeTroll]

Paul, n'est-ce pas DisplayName ?
DisplayName identifie le service dans le gestionnaire de contrôle de services.
C'est son Libellé sur la première colonne du "services.msc"
CastorCharly souhaite la Deuxieme colonne

Bonjour Maitre Castor ! !

Il s'agit non pas d'installer un service, mais de pouvoir renseigner à un service que j'ai écris, l'entrée "Description" qui est visible lorsque tu ouvres la gestion des services de Windows.

Je pense que Paul, évoquait que l'on pouvait définir la valeur dès l'installation donc avant son lancement car il a du confondre DisplayName et la Description


NTService ? C'est une unité à toi Paul ?

Sinon remarque similaire, DisplayName correspond au Caption de Paul

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
CreateService(SvcMgr, PChar(Name), PChar(DisplayName),
        SERVICE_ALL_ACCESS,...

Code c++ :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
SC_HANDLE WINAPI CreateService(
  _In_       SC_HANDLE hSCManager,
  _In_       LPCTSTR lpServiceName,
  _In_opt_   LPCTSTR lpDisplayName,

hSCManager [in]

A handle to the service control manager database. This handle is returned by the OpenSCManager function and must have the SC_MANAGER_CREATE_SERVICE access right. For more information, see Service Security and Access Rights.
lpServiceName [in]

The name of the service to install. The maximum string length is 256 characters. The service control manager database preserves the case of the characters, but service name comparisons are always case insensitive. Forward-slash (/) and backslash (\) are not valid service name characters.
lpDisplayName [in, optional]

The display name to be used by user interface programs to identify the service. This string has a maximum length of 256 characters. The name is case-preserved in the service control manager. Display name comparisons are always case-insensitive.

[castorcharly]

Le troll,

Je parle de la description, pas du displayname,
par exemple pour

le service [PolicyAgent]
le displayname est en FR [Agent de stratégie IPsec]
et la description est [La sécurité du protocole Internet (IPSec) prend en charge l’authentification de l’homologue réseau, l’authentification de l’origine des données, ...]

C'est cette description que je veux implémenter, pour mes services.

[ShaiLeTroll]

Mince, j'ai du édite trop tard, j'ai pris la hotline au bureau

Paul, n'est-ce pas DisplayName ?
DisplayName identifie le service dans le gestionnaire de contrôle de services.
C'est son Libellé sur la première colonne du "services.msc"
CastorCharly souhaite la Deuxieme colonne

Il serait plus prudent d'utiliser ChangeServiceConfig2

Code c++ :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
BOOL WINAPI ChangeServiceConfig2(
  _In_      SC_HANDLE hService,
  _In_      DWORD dwInfoLevel,
  _In_opt_  LPVOID lpInfo
);

SERVICE_CONFIG_DESCRIPTION : The lpInfo parameter is a pointer to a SERVICE_DESCRIPTION structure.

[castorcharly]

Mince, j'ai du édite trop tard, j'ai pris la hotline au bureau



Il serait plus prudent d'utiliser ChangeServiceConfig2


Code c++ :
Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5

BOOL WINAPI ChangeServiceConfig2(</p><p> _In_ SC_HANDLE hService,</p><p> _In_ DWORD dwInfoLevel,</p><p> _In_opt_ LPVOID lpInfo</p><p>);

Ah, oui c'est peut être aussi une solution. Je vais tester cette API.

Merci

[skywaukers]

L'évènement AfterInstall ne s'exécute qu'une fois lors de l'installation du service. Ceci dit peut-être qu'avec l'API ce sera plus sûr au niveau des droits.

@++
Dany

[castorcharly]

L'évènement AfterInstall ne s'exécute qu'une fois lors de l'installation du service. Ceci dit peut-être qu'avec l'API ce sera plus sûr au niveau des droits.

@++
Dany

Oui pour afterInstall c'est ce que j'ai essayé et ça marche.
Pour les droits, j'ai pas encore testé l'API, mais dans le cas qui est en souffrance, c'est moi qui fait les installs (plusieurs services interactifs entre eux), j'ai donc le droit de modifier la registry comme je veux.

La description est pratique pour mettre des notes de maintenance, des mises en garde etc. C'est sur un de nos serveurs et je ne suis pas seul à faire la maintenance, surtout en cas d'absence.

Merci à toi et à tous pour cette aide

[ShaiLeTroll]

Cette question me fut bien utile et ma réponse de l'époque m'a fait gagner du temps aujourd'hui même
car je viens de passer un simple exe sous la forme d'un service, voici le code :
Le sujet n'est pas marqué en ce mois de février 2015,
j'espère que castorcharly a tout de même réussi son changement de description depuis septembre 2013

Cela a fonctionné sans soucis sur un Win7 SP1

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
procedure TAutomateLogistiqueService.ServiceAfterInstall(Sender: TService);
const
  ALHRZ_DESCRIPTION = '...';
var
  Svc: SC_HANDLE;
  SvcMgr: SC_HANDLE;
  Info: SERVICE_DESCRIPTION;
begin
  SvcMgr := OpenSCManager(nil, nil, STANDARD_RIGHTS_REQUIRED);
  try
    Svc := OpenService(SvcMgr, PChar(Self.Name), SERVICE_CHANGE_CONFIG);
    try
      Info.lpDescription := PChar(ALHRZ_DESCRIPTION);
      Winapi.WinSvc.ChangeServiceConfig2(Svc, SERVICE_CONFIG_DESCRIPTION, @Info);
    finally
      CloseServiceHandle(Svc);
    end;
  finally
    CloseServiceHandle(SvcMgr);
  end;
end;