Kopieren wenn Windows beendet wird

[Zacherl]

Delphi-Quellcode:

procedure TMainForm.WMQueryEndSession(var Msg: TWMQueryEndSession); 
begin 
  //Windows erlauben zu beenden 
  Msg.Result := Integer(false);

  //Kopieren
 
  Msg.Result := Integer(true);

  //Wenn Windows beendet wird, dann Variable auf true setzen 
  Windows_Session_End := true; 

  //Programm schliessen 
  close; 

  inherited; 
end;

Florian