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

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

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

方法一：


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

方法二：


这种方法比较完美，不会出现 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.