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]

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.

[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...