在写后台的程序时，一般想要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.

发表于 @ 2007年06月29日　00:38:00 | 评论( loading... ) | 编辑| 举报| 收藏

旧一篇:捕捉网页的windowClose事件，并调用注销登录页面 | 新一篇:一个控制台的调试类