Trotz Bestätigung Programm mit Windows beenden

[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;