dienst für Windows

[coderi]

Hallo zusammen,

ich weiß nicht genau ob das hier der richtige Bereich ist, ich schreibe es halt mal hierher.

Ich hab einen Windows Dienst welcher mit :

Delphi-Quellcode:

procedure TSvcClxPDFDistributor.ServiceExecute(Sender: TService);
begin
  tmStarter.Enabled := True;
  dmMain.WriteLog('Dienst gestartet!');
  while not Terminated do
  ServiceThread.ProcessRequests(True);// wait for termination
  tmStarter.Enabled := False;
end;

gestartet wird. Im timer wird periodisch eine Prozedure aufgerufen, welche eine Datenbank connected und hier
in verschiedenen Schleifen datasets durchgeht und Reporte erstellt.

Wenn der Dienst nun über die SCM gestoppt wird kommt :

---------------------------
Dienste
---------------------------
Der Dienst "XYZ" auf "Lokaler Computer" konnte nicht beendet werden.
Der Dienst hat keinen Fehler zurückgegeben. Es kann sich um einen internen Windows-Fehler oder einen internen Dienstfehler handeln.
Setzen Sie sich mit Ihrem Systemadministrator in Verbindung, falls das Problem weiterhin besteht.
---------------------------
OK
---------------------------

er läuft der SCM weiter und ich sehe im Log (welches der Dienst schreibt) das er noch etwas tut. Dann nochmal auf Stop :

---------------------------
Dienste
---------------------------
Der Dienst "XYZ" auf "Lokaler Computer" konnte nicht beendet werden.

Fehler 1061: Der Dienst kann zurzeit keine Steuerungsmeldungen annehmen.


---------------------------
OK
---------------------------

Und jetzt bekomme ich im Log die Zugriffsverletzung angezeigt und der Dienst wird "unsauber" beendet.

Es sieht also so aus, als wenn der Dienst sich bereits halber beendet hat, aber die Schleife hat davon
noch nichts mitbekommen und versucht weiter zu arbeiten, irgendwann fehlt ihr die Grundlage und
es kommt zur Zugriffsverletzung.

Jetzt die Frage:
Wie schreibe ich denn einen Dienst welcher mitbekommt, das er sich in einer schleife befindet und diese
erst verlassen muss, bevor er sich beendet ?

viele grüße
coderi