Paswort abfrage ...

[ManuMF]

Delphi-Quellcode:

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

var Eingabe : String;

begin
  action := caNone;
  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
      action := caFree;
      // evtl. dann noch mal Form1.close;
    else
      MessageDlg('Falsches Passwort!', mtWarning, [mbOK], 0);
  end;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := false;
end;

end.

Gruß,
ManuMF

[edit]ein bisschen verändet[/edit]