Algo acerca de Consale Application

[[seoane]]

En las aplicaciones de consola, para introducir una contraseña se suelen ocultar los caracteres que se introducen por teclado.

Algo así:

Código Delphi [-]
function ReadPass(Prompt: String): String;
var
  Mode: DWORD;
begin
  Result:= EmptyStr;
  Write(Prompt);
  if GetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),Mode) then
  try
    if SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),
      Mode and not ENABLE_ECHO_INPUT) then
        Readln(Result);
  finally
    SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),Mode);
  end;
  Writeln;
end;

Por ejemplo:

Código Delphi [-]
var
  Password: String;
begin
  Password:= ReadPass('Password: ');
end;