Ich habe ein höchst seltsames Verhalten bei den Windows-Services
Ich habe ein Service-Programm aus den Vorlagen erstellt und eigentlich nur im ServiceStart ein Logging eingebaut.
Delphi-Quellcode:
procedure TTestService.ServiceStart(Sender: TService;
var Started: Boolean);
begin
TRY
[B]LogMessage('
Testservice gestartet', EVENTLOG_INFORMATION_TYPE, 0, 0);[/B]
EXCEPT
on e:
exception do begin
LogMessage('
EXCEPTION in Testservice ServiceStart. Error:' + e.
Message, EVENTLOG_ERROR_TYPE, 0, 0);
end;
END;
end;
Das Service wurde in einen CMD als Admin mit /install installiert und gestartet.
Soweit so gut. Im Windows-Protokoll bei den Anwendungen wird auch das auch nach den Start wie erwartet protokoliert.
ABER wenn der Rechner jetzt neu gestartet wird, protokoliert das Service beim Start dieses Event NICHT!!!
Bei den Diensten wird das Service allerdings als gestartet ausgegeben und das Service läuft auch!
Hat jemand eine Idee was das Verhalten auslöst?