Hallo,
ich habe ein Programm geschrieben, dass mit Windows startet und das während der Laufzeit immer wieder Informationen abruft und schreibt. Ich habe in das Programm eingebaut, dass wenn man es schließen will, dass es eine Messagebox ausgibt ob man das Programm wirklich schließen möchte. Wenn ja dann ist CanClose auf true. Wenn Nein dann auf False. Dsa sieht dann so aus:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Application.MessageBox(PChar('Willst du '+ExtractFileName(Application.ExeName) +' wirklich schließen?'+#13#10+#13#10+'Anstatt es zu schließen, kannst du es auch minimiren!'),'Wirklich schließen?',MB_YESNO)=6 then begin
Canclose:=true;
[...]
end
else
begin
Canclose:=false;
[...]
end;
end; |
Wenn ich nun aber Windows beende, dann kommt auch diese Frage. Ich will aber, dass das Programm dann einfach nur beendet wird. Ohne Daten zu speichern oder irgendetwas zu tun. Es soll dann nichts machen. Wie kriege ich das hin?
MfG
Regan
WM_QUERYENDSESSION