请教：怎样使delphi写的控制台程序在使用中密码不显示出来？

Question

我在一个后台运行的DOS控制台应用程序上加了密码，用的是readln()接受的密码，怎样才能让用户在使用的时候让输入密码不显示出来呢？
我是初学，请大家多指教啊！

Answer 1

program Project2;{$APPTYPE CONSOLE}uses
  SysUtils,Windows;var
  S : string;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  Write('Please input your password:');
  SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),ENABLE_LINE_INPUT or ENABLE_PROCESSED_INPUT);
  ReadLn(S);
  WriteLn;
  WriteLn('Your Password is:',S);
  ReadLn;
end.

Answer 2

谢谢kingron,我的hotmail是[email protected]
能交个朋友吗？

Answer 3

唉，不会看帮助啊？Win32 SDK，举一反三最重要！再显示：
SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),ENABLE_LINE_INPUT or ENABLE_PROCESSED_INPUT or ENABLE_ECHO_INPUT);