Propriété Description Tservice

Version imprimable

16/09/2013, 11h31
castorcharly

Propriété Description Tservice

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.

Bonjour,

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

Code:

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

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

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

Citation:
Envoyé par 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:

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

Citation:
Envoyé par Paul TOTH
si j'en crois mon unité NTService, le nom du service est donné dans l'appel à CreateServiceA()
Code:

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.

16/09/2013, 14h27
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 ! :mouarf: !

Citation:

Envoyé par castorcharly

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:

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

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

Envoyé par msdn

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.
16/09/2013, 14h41
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.
16/09/2013, 14h55
ShaiLeTroll
Mince, j'ai du édite trop tard, j'ai pris la hotline au bureau :roll:

Citation:

Envoyé par 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

Il serait plus prudent d'utiliser ChangeServiceConfig2
Code:

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

Envoyé par msdn

SERVICE_CONFIG_DESCRIPTION : The lpInfo parameter is a pointer to a SERVICE_DESCRIPTION structure.
16/09/2013, 15h11
castorcharly

Citation:

Envoyé par ShaiLeTroll

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

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

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

Merci
16/09/2013, 23h05
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
16/09/2013, 23h23
castorcharly

Citation:

Envoyé par 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

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

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é :resolu: 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:

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;