Abfrage von Text mit Komponente

[turboPASCAL]

Ich weiss jetzt nicht genau wann du das Passwort abfragen möchtest, vor dem Programmstart ?

In diesem Fall kanst du dir das Demo im Anhang mal ansehen. Vor dem Programmstart wird über eine eigene
InputBox eine Passwortabfrage realisiert. Auf Wunsch kann der Text mit einem PasswortChar (***) verborgen werden.

Delphi-Quellcode:

program Project1;
//...
var Pass: string;

BEGIN
  // function CustomInputBox(const ACaption, APrompt: string;
  //     var Value: string; UsePasswordChar: Boolean): Boolean;
  //
  // ACaption        : Titel des Dialoges
  // APrompt         : Text über dem Eingabefeld
  // Value           : Rückgabewert als String des Eingabefeldes
  // UsePasswordChar : Eingabetext verstecken / anzeigen
  // Rückgabewert    : TRUE wenn OK-Button gedrückt wurde, andernfalls FALSE
  //
  // Autor           : ????????? ( [url]http://www.swissdelphicenter.ch/de/showcode.php?id=709[/url] )
  // Edit by         : turboPASCAL 

  if CustomInputBox('MyApplication', 'Passwort eingeben:', pass, True) then
  begin

    if pass = 'passwort' then // Das Passwort ist "passwort" ;)
    begin
      Application.Initialize;
      Application.CreateForm(TForm1, Form1);
      Application.Run;
    end else
    begin
      MessageBox(0, 'Sorry, das Passwort ist nicht richtig.',
        'Information', MB_ICONERROR or MB_OK);
    end;

  end else
  begin
    MessageBox(0, 'Abbruch durch Benutzer',
      'Information', MB_ICONINFORMATION or MB_OK);
  end;
END.