Wie eine Beschreibung für TService erzeugen

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