{ To detect a Windows Shutdown, you must trap the WM_EndSession message. Declare a message handling procedure in your Form's Private section. Um herauszufinden, ob Windows heruntergefahren wird, muss die WM_EndSession abgefangen werden. } typeTForm1 = class
(TForm) private
procedure
WMEndSession(var
Msg: TWMEndSession); message
WM_ENDSESSION; public
end
; implementation
{$R *.DFM} procedure
TForm1.WMEndSession(var
Msg: TWMEndSession); begin
if
Msg.EndSession = True then
ShowMessage('Windows is shutting down!'); inherited
; end
;