Delphi控制台的Window程序

在写后台的程序时，一般想要dos窗口的输出，可以观察错误信息和实时监控。但又想可以拥有Form的功能。实现方法：

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows,
  Forms,  
  Unit1 in 'Unit1.pas' {Form1};

begin
    Application.Initialize;
    Application.ShowMainForm:= false; // 隐藏主窗口
    Application.CreateForm(TForm1, Form1);

    SetConsoleTitle(PChar('debug window')) ; // 设置标题

    writeln('Hello world...');

    Application.Run;

end.