delphi – 既作为控制台和GUI [复制]

参见英文答案 > Can one executable be both a console and GUI application?9个答案是否可能(如果是这样，我如何)使单个程序作为控制台应用程序和使用Delphi 2007的GUI版本？

我后面的是，如果程序运行与适当的命令行选项，它应该作为一个控制台程序，打印输出到控制台使用WRITELN，但如果没有给出的命令行参数应该作为正常的Delphi运行GUI应用程序？

捕获的是，当作为控制台应用程序运行时，命令行解释器在允许您输入新命令之前等待应用程序终止，而从命令行启动的GUI应用程序立即将您返回到命令行，并且GUI应用程序在分离过程中启动。我想要保留这个行为。

我不介意这样的事情：

IF GUI THEN StartApplicationAsGUI(ParamStr(0))

即。我不介意，如果需要，我将不得不使用某种形式的EXECUTE调用重新启动应用程序以GUI模式启动它，只要命令行界面在GUI版本启动时返回到命令行输入。

我喜欢一个解决方案/建议是这样的：

<Parse Comnand Line>
IF ConsoleMode THEN
runconsole(Parameters)
ELSE BEGIN
Application.Initialize;
Application.CreateForm(…)
Application.Run;
END

(或反之亦然，即如果GUI模式，做某事特殊的方式)

所以我仍然可以使用Delphi的IDE和VCL做GUI界面时…

解决方法

http://blogs.msdn.com/oldnewthing/archive/2009/01/01/9259142.aspx