2019独角兽企业重金招聘Python工程师标准>>> 
只要加上 {$APPTYPE CONSOLE}
就可以使得windows窗口程序具有dos下的I/O能力，接受writeln readln，像cgi那样通过管道传输数据
program console;
{$APPTYPE CONSOLE}
usesForms,fmconsole in 'fmconsole.pas' {Form1};{$R *.res}beginWriteLn('Hello World');//输出,相当于c#中的Console.Writeln("xxx")Application.Initialize;Application.CreateForm(TForm1, Form1);Application.Run;
end.unit fmconsole;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)btn1: TButton;procedure FormCreate(Sender: TObject);procedure btn1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
vars:string;
beginReadln(s);ShowMessage(s);
end;procedure TForm1.btn1Click(Sender: TObject);
beginWriteln('hello!');
end;end.