1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  hConsole := GetStdHandle(STD_INPUT_HANDLE);
  GetConsoleMode(hConsole, ConsoleMode);
  Write('Bitte Name eingeben:');
  Readln(Name);
  Write('Bitte Passwort eingeben:');
  SetConsoleMode(hConsole, ConsoleMode and not ENABLE_ECHO_INPUT);
  ReadLn(PW);
  SetConsoleMode(hConsole, ConsoleMode or ENABLE_ECHO_INPUT);
  Writeln('');
  Writeln('Hallo: ' + Name + ' PW: '+ PW);
  Readln;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

var
  ConsoleHandle: THandle;
  ConsoleMode: Cardinal;
  CurrentChar: Char;
  Name, Password: string;
  ConsoleInputRecord: TInputRecord;
  BufferLength: DWORD;
begin
  ConsoleHandle := GetStdHandle(STD_INPUT_HANDLE);
  GetConsoleMode(ConsoleHandle, ConsoleMode);
  Write('Bitte Name eingeben:');
  Readln(Name);
  Write('Bitte Passwort eingeben:');
  SetConsoleMode(ConsoleHandle, ConsoleMode and not ENABLE_ECHO_INPUT);
  Password := '';
  while CurrentChar <> #13 do
    if ReadConsoleInput(ConsoleHandle, ConsoleInputRecord, 1, BufferLength)
      and (BufferLength > 0) and ConsoleInputRecord.Event.KeyEvent.bKeyDown
      and (ConsoleInputRecord.Event.KeyEvent.AsciiChar <> #0) then // EDIT: check for correct chars
    begin
      CurrentChar := ConsoleInputRecord.Event.KeyEvent.AsciiChar;
      Password := Password + CurrentChar;
      FlushConsoleInputBuffer(ConsoleHandle);
      Write('*');
    end
    else
      FlushConsoleInputBuffer(ConsoleHandle);
  SetConsoleMode(ConsoleHandle, ConsoleMode or ENABLE_ECHO_INPUT);
  Writeln('');
  Writeln('Hallo: ' + Name + ' PW: '+ Password);
  Readln;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

program PasswordTest;

{$APPTYPE CONSOLE}

uses
  PassText; // siehe Anhang

var
  Password : string;
begin
  ConsoleGetPassword('Passwort eingeben: ', Password);   
  Writeln;
  Write('Eingegebenes Passwort: ', Password);
  Readln;
end.