Dienst "Wiederherstellen"-Option einstellen

[gsh]

Zitat von Olli:

Jupp, könnte es. Daher solltest du einfach besagte API benutzen. Mach mal bitte folgendes: miste deinen Service so aus, daß nichts mehr drin ist außer dem eigentlichen Service-Kram. Also kein Server usw. und schicke mir das Ergebnis zu! Ich werde mich bemühen dir schnellstmöglich ein angepaßtes Beispiel zukommen zu lassen. Ich nehme nämlich an, daß du irgendeine Service-Komponente/Klasse benutzt und nicht den Standardweg. Daher dieser Umweg.

Was? Wenn ich alles raushaue dann kann ich ja gleich schon einfach auf Neu-> Service-Anwendung klicken.
Die zwei standart funktionen sind immer noch vorhanden:

Delphi-Quellcode:

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  LibraServerService.Controller(CtrlCode);
end;

function TLibraServerService.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

und der service ist immer noch von der klasse class(TService). Also was soll anderes sein?