eine passwort abfrage vor dem prog start

[misterx]

Zitat von Pr0g:

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.

wen ich das mache dan geht das prog nicht an ich gebe das richtige pass ein es tauch immer wieder auf