OnShutdown wird ausschließlich beim Herunterfahren bzw. Neustarten ausgelöst. Für den User Logoff wirst Du SetConsoleCtrlHandler benutzen müssen um auf das CTRL_LOGOFF_EVENT Event reagieren zu können.
Ich war mal so frei und habs implementiert:
Delphi-Quellcode:
function CtrlHandlerFunction(dwCtrlType : DWORD) : BOOL; stdcall;
begin
// Generell geben wir FALSE zurück, da wir nicht alle Events bearbeiten. Sollten
// wir aber auf ein Event reagieren, so müssen wir TRUE zurück geben.
result := false;
case dwCtrlType of
CTRL_LOGOFF_EVENT :
begin
// Mach was immer Du machen möchtest sobald der User ausloggt :)
result := true;
end;
CTRL_SHUTDOWN_EVENT :
begin
// Wenn Du OnShutdown nutzt, ist das nicht notwendig, prinzipiell ließe
// sich im Event Handler aber auch auf ein Herunterfahren reagieren.
result := true;
end;
end;
end;
procedure TService1.ServiceExecute(Sender: TService);
begin
SetConsoleCtrlHandler(@CtrlHandlerFunction, true);
end;
Wenn Du statt des Console Control Handlers lieber das OnShutdown Event verwenden möchtest von TService, lösch den Part hier einfach:
Delphi-Quellcode:
CTRL_SHUTDOWN_EVENT :
begin
// Wenn Du OnShutdown nutzt, ist das nicht notwendig, prinzipiell ließe
// sich im Event Handler aber auch auf ein Herunterfahren reagieren.
result := true;
end;
Der Code ist untested, weil ich derzeit nicht reloggen kann. Allerdings denke ich nicht, daß ich nen Fehler drin hab. Garantieren tu ich allerdings wie immer für nichts. Wer sich an meinem Coding Stil stört hat - ebenfalls wie immer - selbst schuld
.