Windows Dienst starten und beenden, interval

[TUX_der_Pinguin]

Verwende ich wie in dem Beitrag auf den GuenterS verwiesen hat eine der Prozeduren
OnStart bzw. OnStop dann erhalte ich eine Fehlermeldung beim Starten, siehe Anlage
laufen tut der Dienst zwar aber nur einmal danach ist er nicht mehr gestartet ...

Marabu hat zwar auch in dem Beitrag geschrieben das es gehen müßte ...

Delphi-Quellcode:

procedure TObserver.ServiceExecute(Sender: TService); 
begin 
  Log('Guardian executing'); 
  while Active do 
  begin 
    Sleep(1000); 
    if Abs(Now - LastCheck) > Interval then 
    begin 
      CheckTargetService(ServiceName); 
      LastCheck := Now; 
    end; 
    ServiceThread.ProcessRequests(false); 
  end; 
end;

Jedoch weiß ich nicht wo und wie man dann Active wieder auf False setzt, im OnStop
Ereignis bekommt man ja wieder den gleichen Fehler.

Gibt es den nirgendwo ein Beispiel Gerüst wo man eigentlich nur noch seine Prozeduren
einfügen muß, dann könnte ich mal sehen wie es funktioniert.

Ich hab noch folgendes gefunden was ich mir mal ansehen werde Link