Herunterfahren im minimierten Zustand erkennen

[rob60]

Hi zusammen,
ich sitze jetzt schon seit einigen Stunden an einem eigentlich simplen Problem: Wie erkenne ich das Herunterfahren des Windows Systems(Win 7) wenn mein Programm minimiert ist. ich habe bereits einen Ansatz gefunden jedoch funktioniert dieser nur mit offenem Fenster zuverlässig, im minimierten Zustand funktioniert es manchmal und manchmal nicht ohne ersichtlichen Grund, fällt euch eine sichere Methode ein?

Code:

private
 procedure WMQueryEndSession(var M: TWMQueryEndSession); message WM_QUERYENDSESSION;


procedure TForm1.WMQueryEndSession(var M: TWMQueryEndSession);
begin
inherited;
  Sicherung; // wird bei herunterfahren ausgeführt
  windows.Beep(800,400);

  M.Result := 1;
  Close;
end;

Ich muss zugeben ich verstehe den code selber nur teilweise und habe in kopiert (bis jetzt habe ich mich nie gross um Messages gekümmert) ich denke allerdings es der Fehler liegt tiefer irgendwo bei Windows.