Dienst soll sich selbst beenden

[DelphiKlaus]

Hallo,

nach vielen Monaten, in denen ich hier im Forum nur mitgelesen habe, habe ich jetzt eine Frage, zu der ich keine Antwort gefunden habe:

Ich möchte einen unter Delphi 6 realisierten Dienst so erweitern, dass er sich bei Eintreten eines bestimmten Ereignisses selbst beendet. Und zwar soll das so geschehen, dass er auch unter Systemsteuerung-Verwaltung-Dienste ganz normal als beendet bzw. nicht gestartet steht.

Das OnStop-Event sollte ganz normal ausgelöst werden. Irgendwie muss ich wohl den ServiceController bemühen, aber ich habe leider nicht gefunden, wie das genau geht.

Es wäre schön, wenn jemand sowas schon mal gemacht hat und mir ein paar Tips geben könnte.

Danke schön

Klaus

[Phoenix]

Such mal in der VCL-Source, was der Dienst macht, wenn er von aussen das Stop-Signal bekommt ;-)

Es sollte zum sauberen Beenden eigentlich schon reichen, alles nötige Aufzuräumen und den eigenen Status auf csStopped zu setzen.

[gsh]

Habs zwar noch nicht gebraucht ... müsste aber mit:

Delphi-Quellcode:

ServiceName.DoStop

gehen :zwinker:

[DelphiKlaus]

Danke schön, funktioniert wunderbar