Paswort abfrage ...

[malo]

Überarbeitete Version:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var Eingabe : String;

begin
  //action := caNone; <-- Nicht nötig, kommt nach unten
  if (InputQuery('Programm beenden', 'zum Beenden bitte Passwort eingeben', Eingabe)) then
  // InputQuery gibt true nur zurück, wenn nicht Abbrechen geklickt wurde
  begin
    if (Eingabe <> 'passwort') then
    begin
      action := caNone; //Nur blockieren, wenn Eingabe falsch, sonst nichts machen  [edit]Oder überhaupt blockieren? Eigene Entscheidung, würd ich sagen
      MessageDlg('Falsches Passwort!', mtWarning, [mbOK], 0);
    end;
  end;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  //CanClose := false; <-- Wieso das?
end;