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??