Trotz Bestätigung Programm mit Windows beenden

[Svenkan]

Hallo!
Bevor mein Programm beendet werden kann, muss dies durch eine Bestätigung 'vollendet' werden.

Delphi-Quellcode:

procedure THauptform.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
 if MessageDlg('Wollen Sie VPlan Plus wirklich beenden?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
   CanClose:=True
 else
   CanClose:=False;
end;

Wenn nun Windows beendet wird, während das Programm noch läuft, funktioniert dies auf Grund einer Warnmeldung nicht.

Wie ist es möglich, dass bei einem Shutdown CanClose auf True gesetzt wird?
Oder gibt es da noch bessere Möglichkeiten hinsichtlich des Beendens?

[Nikolas]

Warum benutzt du denn CanClose?

Wenn der Nutzer Ja klickt, soll sich das Programm doch direkt beenden. Schreib doch gleich ein Form.Close (oder so was).

[SirThornberry]

wenn windows heruntergefahren wird gibt es die Nachricht wm_queryendsession. Einfach darauf reagieren und in einer variablen vermerken das heruntergefahren wird:

Delphi-Quellcode:

procedure THauptform.FormCloseQuery(Sender: TObject; 
  var CanClose: Boolean); 
begin 
  if (fShutting_down or (MessageDlg('Wollen Sie VPlan Plus wirklich beenden?', mtConfirmation, [mbYes, mbNo], 0) = mrYes)) then 
     CanClose:=True 
  else 
    CanClose:=False; 
end;

[Luckie]

Behandele die Nachtricht WM_QUERYENDSESSION.

@Svenkan: Weil das Ereifnis FormCloseQuery genau dafpür gedacht ist. Schreibst du das in OnClose, kannst du den Vorgang nicht mehr abbrechen.