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

方法一：

在程序的首行添加 FreeConsole;

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

方法二：

直接将编译指令 {$APPTYPE CONSOLE} 去掉。
这种方法比较完美，不会出现 Console Window闪现的情况。

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

怎样让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.