在写后台的程序时,一般想要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.
责任编辑:小草