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