TService: OnShutdown feuert nicht

[bcvs]

Hallo zusammen,

ich will in einem Dienst auf das Herunterfahren von Windows reagieren. Dazu verwende ich den Event OnShutdown. Der feuert auch bei "Neu starten" von Windows, allerdings nicht beim "Herunterfahren" und anschließendem manuellen Neustart.

Im zweiten Fall wird auch beim Neustart das OnStart nicht durchlaufen.

Was ist da los?
Oder gibt es eine andere Methode, auf das Herunterfahren des Computers zu reagieren und vorher noch eine kurze Aktion auszuführen?

[Dalai]

Feuert das Event denn, wenn du beim Herunterfahren des Systems die Shift-Taste gedrückt hältst?

Wenn ja, wundert mich das nicht, dass da kein Shutdown-Signal gefeuert wird, da Windows seit Win8 standardmäßig nicht mehr heruntergefahren wird sondern nur die Nutzersitzung beendet und anschließend das System in den Ruhezustand versetzt wird. Dieses "Feature" wird von Microsoft als Schnellstart (Fast Boot) bezeichnet, und wenn man das nicht braucht/möchte, kann man es deaktivieren.

Grüße
Dalai

[Uwe Raabe]

Das ist auch der Grund, warum man die Developer-Instanz des Interbase Servers in so einem Fall nach 24 Stunden trotzdem einmal neu starten muss, obwohl das System ja gerade "hochgefahren" wurde.

[bcvs]

Zitat:

Zitat von Dalai (Beitrag 1476240)

Feuert das Event denn, wenn du beim Herunterfahren des Systems die Shift-Taste gedrückt hältst?

Ja, dann feuert es.

Das heißt aber, dass das OnShutdown für meine Zwecke ungeeignet ist.
Gibts es da noch andere Möglichkeiten, das Herunterfahren oder Beenden der Nutzersitzung zu erkennen?

[Uwe Raabe]

Hast du mal OnPause und OnContinue versucht?

[bcvs]

Ja, das reagiert aber nur auf anhalten / fortsetzen in der Dienstverwaltung.

[bcvs]

Ich habe es jetzt anders gelöst: Mein Tool läuft nicht mehr als Dienst, sondern als Programm mit Icon im Infobereich der Taskleiste.
Da reagiere ich auf WM_ENDSESSION.

[himitsu]

Bekommt der Dienst kein WM_ENDSESSION?

[bcvs]

Nein, hat ja kein Fenster.

[himitsu]

Zitat:

Zitat von bcvs (Beitrag 1476403)

Nein, hat ja kein Fenster.

Braucht er auch nicht, naja, nicht direkt,
aber nein, dein Dienst hat ein "Fenster", siehe Application. :zwinker:

TService nutzt intern die VCL, für die Messagebehandlung.
Forms.Application.Handle (HWND) ist das Basis-MessageWindow der VCL.



SvcMgr.Application (TServiceApplication) die hauptklasse des Delphi-Services,
aber intern wird auf Forms.Application (TApplication) zugrgriffen ... das kannst du auch, indem du die Unit Forms einbindest.

Bzw. du kannst auch TApplicationEvents verwenden. Ist eh besser als direkt auf die Events von Forms.Application zuzugreifen.


Message-Only Window: Das sind unsichtbare "Fenster" ohne Parent ... SystemMessages werden von Windows an alle TopLevel-Windows gesendet.

Du kannst auch selbst ein Message-Only Window erstellen. (PS: jeder VCL-TTimer hat intern auch sein eigenes Fenster)
https://docs.microsoft.com/en-us/win...e-only-windows