Einem Dienst eine Erklärung für die MMC mitgeben

[emsländer]

Salvete,

so - nun wohl die letzte Geschichte zum Thema Serviceinstaller...

Wenn ich mir die MMC-Dienstekonsole anschaue, so finde ich dort zu allen Diensten eine kurze Anleitung. Leider finde ich keine Möglichkeit bei eigenen Diensten auch eine kurze Erklärung mitzugeben. - Oder weiss da jemand was?

Gruss

EL

[SvB]

Das funktioniert so

Delphi-Quellcode:

uses WinSvc;
const
  SERVICE_CONFIG_DESCRIPTION     = 1;
  SERVICE_CONFIG_FAILURE_ACTIONS = 2;

type
  TSERVICE_DESCRIPTION = packed record
    lpDescription: PChar;
  end;

  function ChangeServiceConfig2A(hService: HWND; dwInfoLevel: DWord; lpInfo: Pointer): BOOL; stdcall; external 'advapi32.dll';

implementation

procedure SetServiceDescription(ServiceName, Description: String);
var
  lDescription    : TSERVICE_DESCRIPTION;
  lManager,
  lServiceHandle  : Cardinal;
begin
  lManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  if (lManager <> 0) then
  begin
    lServiceHandle := OpenService(lManager, PAnsiChar(ServiceName) , SERVICE_ALL_ACCESS);
    if (lServiceHandle <> 0) then
    begin
      lDescription.lpDescription := PAnsiChar(Description);
      ChangeServiceConfig2A(lServiceHandle, SERVICE_CONFIG_DESCRIPTION, @lDescription);
      CloseServiceHandle(lServiceHandle);
    end;
    CloseServiceHandle(lManager);
  end;
end;

Ich hoffe, dass ich nichts vergessen habe.
Die Funktion "SetServiceDescription" musst Du natürlich auch nocj irgendwo definieren.

Grüße Sven

[SirThornberry]

Der Standardservice bietet keine Möglichkeit eine Beschreibung anzugeben. Diese habe ich bisher daher über die Apifunktion selbst gesetzt:

Delphi-Quellcode:

[...]
const
  SERVICE_CONFIG_DESCRIPTION     = 1;

type
  TSERVICE_DESCRIPTION = packed record
    lpDescription: PChar;
  end;
[...]
  function ChangeServiceConfig2A(hService: HWND; dwInfoLevel: DWord; lpInfo: Pointer): BOOL; stdcall; external 'advapi32.dll';
[...]
procedure TYourServiceClass.ServiceAfterInstall(Sender: TService);
var
  lDescription    : TSERVICE_DESCRIPTION;
  lManager,
  lServiceHandle  : Cardinal;
begin
  lManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  if (lManager <> 0) then
  begin
    lServiceHandle := OpenService(lManager, PChar(Self.Name), SERVICE_ALL_ACCESS);
    if (lServiceHandle <> 0) then
    begin
      lDescription.lpDescription := 'Deine Beschreibung';
      ChangeServiceConfig2A(lServiceHandle, SERVICE_CONFIG_DESCRIPTION, @lDescription);
      CloseServiceHandle(lServiceHandle);
    end;
    CloseServiceHandle(lManager);
  end;
end;

@SvB: Woher hast du den Quelltext? Der sieht ja 1 zu 1 aus wie der aus meinem Projekt.

[SvB]

@SirThornberry:
Ich hatte gerade meine VM mit Delphi runtergefahren und wollte alles ausmachen, dann hab ich es aber noch mal angeschmissen.
Ich musste mich vor ca. zwei Monaten mal mit Services auseinandersetzen und es müsste von diesem Beitrag gewesen sein. Zum Glück hatte ich mir die URL in den Quelltext eingetragen, sonst hätte ich es jetzt nicht mehr gewusst, bzw. rausbekommen.Wie erstelle ich einen Dienst für WinNT / Win2000 / Win. Auf der ersten Seite ganz unten. Das Beispiel war von Dir.
Ich habs für mich noch mal etwas angepasst.

Dankeschön noch mal.

Grüße Sven

[SirThornberry]

Und ich dachte schon ich bin im falschen Film und hab den unterbewusst selbst irgendwo aufgesammelt *g*

[emsländer]

Zitat von SirThornberry:

Der Standardservice bietet keine Möglichkeit eine Beschreibung anzugeben. Diese habe ich bisher daher über die Apifunktion selbst gesetzt:

Delphi-Quellcode:

[...]
const
  SERVICE_CONFIG_DESCRIPTION     = 1;

type
  TSERVICE_DESCRIPTION = packed record
    lpDescription: PChar;
  end;
[...]
  function ChangeServiceConfig2A(hService: HWND; dwInfoLevel: DWord; lpInfo: Pointer): BOOL; stdcall; external 'advapi32.dll';
[...]
procedure TYourServiceClass.ServiceAfterInstall(Sender: TService);
var
  lDescription    : TSERVICE_DESCRIPTION;
  lManager,
  lServiceHandle  : Cardinal;
begin
  lManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  if (lManager <> 0) then
  begin
    lServiceHandle := OpenService(lManager, PChar(Self.Name), SERVICE_ALL_ACCESS);
    if (lServiceHandle <> 0) then
    begin
      lDescription.lpDescription := 'Deine Beschreibung';
      ChangeServiceConfig2A(lServiceHandle, SERVICE_CONFIG_DESCRIPTION, @lDescription);
      CloseServiceHandle(lServiceHandle);
    end;
    CloseServiceHandle(lManager);
  end;
end;

@SvB: Woher hast du den Quelltext? Der sieht ja 1 zu 1 aus wie der aus meinem Projekt.

Hi,

vielen Dank. Verrätst Du mir auch noch, welche Unit ich für "OpenSCManager" etc. einbinden muss?

Gruss

EL

[SvB]

Ich denke, wie ich es bei mir mit reingeschrieben habe: WinSvc

[emsländer]

Zitat von SvB:

Ich denke, wie ich es bei mir mit reingeschrieben habe: WinSvc

Das wars!!!!

Super - vielen Dank!

Gruss

EL