Dienst mit Fehler stoppen

[ralfiii]

Zitat von Sir Rufo:

Wieso willst du den Dienst überhaupt beenden?

Erwischt
Ich hab noch mal drübergeschaut und der Lizenz-Dienst läuft eh weiter wenn der Dongle abgezogen wird.

Der Dienst mit dem ich kämpfe ist einer der nur bei Kunden installiert werden DARF die gewisse Rechte haben.
Da ist's aus Support-Sicht eigentlich ganz fein, wenn der Dienst sich gleich beendet oder gar nicht starten lässt wenn die Voraussetzungen nicht passen.

Und es muss doch in Delphi möglich sein, einen Dienst so zu beenden dass Windows mitkriegt dass da was schiefgelaufen ist.

Ich hab nun mal

Delphi-Quellcode:

     ErrorSeverity:=esCritical;
     ErrCode:=ERROR_SERVICE_SPECIFIC_ERROR;
     ReportStatus;

dem Controller(Stop) vorangestellt, im Ereignisprotokoll steht zwar
Der Dienst "foo" wurde mit folgendem dienstspezifischem Fehler beendet: Der Dienst hat einen
dienstspezifischen Fehlercode zurückgegeben..
Aber Windows startet den Dienst noch immer nicht automatisch neu, obwohl ich bei der Dienst-Wiederherstellung (Services-Panel) "bei erstem Fehler -> Dienst neu starten" angegeben hab. (und bei den zwei weiteren das selbe)

Hiiiilfe!