Auf Herunterfahren reagieren [w/ Forms]

[DarkItachi]

Hallöchen,

Ich weiß nun, dass man mit:
procedure WMQueryEndSession(var Msg: TMessage); message WM_QUERYENDSESSION;
procedure WMEndSession(var Msg: TMessage); message WM_ENDSESSION;
und einer Form auf das Herunterfahren von Windows reagieren kann...

message sollen allerdings nur mit einer Form funktionieren,
weiß jemand, wie man das auch mit einer No-Form *Exe machen kann?

Also eine Anwendung ohne Forms, aber dass sie trotzdem auf das Herunterfahren von Windows reagieren kann?

Danke im Vorhinein

[himitsu]

Über ein MessageOnlyWindow?
(oder einfach über eine unsichtbare Form)

PS: Nicht vergessen eine Nachrichtenschleife einzubauen, damit diese Nachrichten auch verarbeitet werden können.

[DarkItachi]

Gut! Dankeschön!
Ich werde mir das mal anschauen

[himitsu]

Hmmm, eigentlich hatte ich irgendwann mal was zu diesen MessageOnlyWindows geschrieben, aber die Forensuche scheint das wohl nicht mehr zu finden.

Also entweder du nimmst ein TForm, das NonVCL-Equivalent über CreateWindow, womit du dir ein unsichtbares Hauptfenster (MessageWindow) erstellst.

Oder eben den offiziellen Weg für ein MessageOnlyWindow (irgendwo im MSDN sollte sich ein Artikel dazu finden lassen).
> siehe nachfolgenden Code, aber ohne das SetWindowLong
In der Nachrichtenschleife dann einfach auf das Handle der Form reagieren.

Oder du erstellst dir eine neue WindowClass, registrierst sie, mit einem eigenem StandardWindowProc und reagierst dann in dieser Prozedur.
> statt Message/Static dann deine eigene Klasse nehmen

Oder eben über MakeObjectInstance eine Methode ala TWndMethod beim Fenster registrieren und darüber auf die Messages reagieren.

Delphi-Quellcode:

VI.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
If GetVersionEx(VI) and (VI.dwMajorVersion >= 5) Then 
  S := 'Message' Else S := 'STATIC';
FHandle := CreateWindowEx(WS_EX_TOOLWINDOW, PChar(S), nil,
  WS_POPUP, 0, 0, 0, 0, 0, 0, HInstance, nil);
SetWindowLong(FHandle, GWL_WNDPROC, Integer(MakeObjectInstance(YourWndMethod)));

In allen Fällen mußt du aber eine MessageLoop/Nachrichtenschleife verwenden. (in einem VCL-Programm steckt diese Schleife in Application.Run drin und ohne diese mußt du eben deine eigene Schleife bauen) ... dazu sollten sich aber Massig Infos und Beispiele in der DP anfinden.
z.B. http://www.delphipraxis.net/115456-e...tml#post789753
oder siehe Delay

[add] OK, einwas war doch noch zu finden.
http://www.delphipraxis.net/113322-u...tml#post773692