Beenden über Taskleiste (Rechtscklick+beenden) abfangen

[Nils_13]

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := False;
  // Hier kommt der Code rein
  CanClose := True;
end;