Wie eine Beschreibung für TService erzeugen

[manuel]

Hi Leute,

ich habe einen Dienst unter Verwendung der Komponente TService erstellt.
Jetzt möchte ich, dass in der Windows-Anzeige "Dienste" auch eine Beschreibubg zum Dienst zu sehen ist. Leider gibts zu TService keine Property "Description" oder so.

Hat jemand vielleicht eine Idee ?


Gruß

Manuel

[Sprint]

Ich kenne keine VCL Funktion. Kannst du aber manuell nachdem Ereignis AfterInstall selber in die Registry schreiben.

Delphi-Quellcode:

procedure TService1.ServiceAfterInstall(Sender: TService);
begin

  with TRegistry.Create(KEY_READ or KEY_WRITE) do
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey('SYSTEM\CurrentControlSet\Services\' + Name, False) then
        WriteString('Description', 'Meine Beschreibung');
    finally
      Free;
    end;

end;

[Chewie]

Ich würde empfehlen, den dokumentierten Weg zu nehmen, und das ist die Verwendung von ChangeServiceConfig2


Hier ein Auszug aus einer Klasse, die ich mal geschrieben habe:

Delphi-Quellcode:

procedure TServiceInstaller.SetDescription(const Value: String);
var
  sd: TServiceDescription;
begin
  if FServiceOpened then
  begin
    sd.lpDescription := PChar(Value);
    ChangeServiceConfig2(FhService, SERVICE_CONFIG_DESCRIPTION, @sd);
    FDescription := Value;
  end;
end;

FhService ist hier das Handle des geöffneten Dienstes.


Eventuell musst du dir noch die Funktionsdeklaration und den Typ TServiceDescription importieren:

Delphi-Quellcode:

unit Winscv_fragment;

interface

uses Winsvc, Windows;

function ChangeServiceConfig2A(hService: SC_HANDLE; dwInfoLevel: DWord;
  lpInfo: Pointer): BOOL; stdcall;
function ChangeServiceConfig2W(hService: SC_HANDLE; dwInfoLevel: DWord;
  lpInfo: Pointer): BOOL; stdcall;
function ChangeServiceConfig2(hService: SC_HANDLE; dwInfoLevel: DWord;
  lpInfo: Pointer): BOOL; stdcall;

type
  _SERVICE_DESCRIPTIONA = packed record
    lpDescription: PChar;
  end;
  TServiceDescriptionA = _SERVICE_DESCRIPTIONA;
  PServiceDescriptionA = ^TServiceDescriptionA;

  _SERVICE_DESCRIPTIONW = packed record
    lpDescription: PWChar;
  end;
  TServiceDescriptionW = _SERVICE_DESCRIPTIONW;
  PServiceDescriptionW = ^TServiceDescriptionW;

  //we use the ANSI version
  TServiceDescription = TServiceDescriptionA;

const
  SERVICE_CONFIG_DESCRIPTION     = 1;
  SERVICE_CONFIG_FAILURE_ACTIONS = 2;

implementation

function ChangeServiceConfig2A; external advapi32 name 'ChangeServiceConfig2A';
function ChangeServiceConfig2W; external advapi32 name 'ChangeServiceConfig2W';
function ChangeServiceConfig2; external advapi32 name 'ChangeServiceConfig2A';

end.

[Sprint]

Zitat von Chewie:

Ich würde empfehlen, den dokumentierten Weg zu nehmen, und das ist die Verwendung von ChangeServiceConfig2

Nach meinen Erfahrungen funktioniert das nicht unter Windows NT 4.

[sakura]

Zitat von Sprint:

Nach meinen Erfahrungen funktioniert das nicht unter Windows NT 4.

Korrekt, aber in WinNT4 gibt es auch keine Anzeigen dafür Das muss man dann wieder separat abfangen.

......

[Sprint]

Zitat von sakura:

Korrekt, aber in WinNT4 gibt es auch keine Anzeigen dafür [...]

Das Problem liegt ja bei...

Zitat:

Delphi-Quellcode:

function ChangeServiceConfig2A; external advapi32 name 'ChangeServiceConfig2A';
function ChangeServiceConfig2W; external advapi32 name 'ChangeServiceConfig2W';
function ChangeServiceConfig2; external advapi32 name 'ChangeServiceConfig2A';

Wenn diese Funktionen statisch gelinkt sind, kann der Service nicht unter Windows NT 4 gestartet werden. Also wäre es besser, diese Funktionen dynamisch zu linken.

[manuel]

Also erstmal danke für die vielen Antworten.

Der Service wird nicht in NT 4 Umgebungen genutzt werden. Daher ist dieses Problem schon mal aussen vor. Die beiden anderen Lösungen werd ich gleich ausprobieren...

Gruß

Manuel

[BennyM]

Hallo,
also kann man sagen am besten ist, man schreibts direkt in die registry dann funktionierts immer ...

[sakura]

Zitat von BennyM:

Hallo,
also kann man sagen am besten ist, man schreibts direkt in die registry dann funktionierts immer ...

Zur Zeit, als bis einschl. Windows 2003, ja. Aber falls sich der Speicherort mal ändern sollte, dann ist die andere Lösung näturlich besser. Wenn das Wörtchen wenn nicht wär...

......