Hier nen (sehr) simples Beispiel:
Delphi-Quellcode:
program Project1;
uses
Forms,
Dialogs, // Fuer die InputBox
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
// Passwortabfrage
if InputBox('Passwortabfrage', 'Bitte Passwort angeben', '') <> 'geheim' then
halt;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Edit: Mit einer einfachen Schleife kommst du auch auf drei Versuche:
Delphi-Quellcode:
program Project1;
uses
Forms,
Dialogs, // Fuer die InputBox
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
var
i: Integer; // Fuer die Schleife
begin
Application.Initialize;
// Passwortabfrage
for i := 0 to 2 do
begin
if InputBox('Passwortabfrage', 'Bitte Passwort angeben', '') = 'geheim' then
break;
if i = 2 then
halt;
end;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Anstelle der InputBox bietet sich natürlich ein eigener Dialog an, welcher über den ShowModal aufruf die Eingabe zurückgibt.