Delphi控制台程序不显示控制台窗口、密码输入用星号表示

http://hi.baidu.com/hacklzt/blog/item/176cfddf9b352b5d95ee3766.html

怎样让Delphi 开发的控制台程序不显示控制台窗口？

方法一：

在程序的首行添加 FreeConsole;

FreeConsole 是 Windows 提供的 API 函数，它的作用就是销毁 Console Window，但是这种方法有个缺陷，它必须要等 Console Window 创建后才能销毁，这样就导致程序运行的时候还是会有一个黑窗口闪一下，然后关闭。

方法二：

直接将编译指令 {$APPTYPE CONSOLE} 去掉。

这种方法比较完美，不会出现 Console Window闪现的情况。

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

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.