Problem WMQUERYENDSESSION mit CoolTrayIcon

[---Bernhard---]

Hallo!

Ich hab ein Programm geschrieben, was standardmäßig CanClose:=false ist (außer man gibt das Passwort ein). Nun möchte ich aber, dass das Programm beendet wird, wenn Windows herunterfährt. Dazu habe ich den Source von hier (klick!) genommen.

Der Source schaut so aus:

Delphi-Quellcode:

procedure TForm1.WMQUERYENDSESSION(var msg: TMessage);
begin
  ShowMessage('Windows wird beendet.');
  msg.Result := Integer(TRUE);  //  TRUE: darf weiter runterfahren; FALSE: nicht runterfahren
  mayclose:= true;
  close;
end;

Die Probleme:
- Die Procedure wird jedoch nur ausgeführt, wenn das Fenster sichtbar ist. (Benutze die Komponente "CoolTrayIcon")
- Ist das Fenster sichtbar, wird die Procedure ausgefürht, dass Programm beendet, jedoch das herunterfahren abgebrochen! Ich muss also zweimal auf herunterfahren gehen. :/

Wie kann ich diese Probleme beheben?

Hoffe ihr könnt mir weiterhelfen.

Vielen Dank im Vorraus, Bernhard

PS: Nur mal ganz nebenbei: Wenn ich zweimal auf Herunterfahren gehe, ist "Inaktive Symbole ausblenden" unter den TNA-Einstellungen deaktiviert (XP). Womit hängt denn das zusammen??