既可以作为控制台也可以作为 GUI 编程 [重复]

Question

是否可以（如果可以，我该如何）使用 Delphi 2007 使单个程序既可以作为控制台应用程序也可以作为 GUI 版本运行？

我所追求的是，​​如果程序使用适当的命令行选项运行，它应该作为控制台程序运行，使用 WRITELN 将输出打印到控制台，但如果没有给出命令行参数，它应该运行为一个普通的 Delphi GUI 应用程序？

问题是，当作为控制台应用程序运行时，命令行解释器在允许您输入新命令之前等待应用程序终止，而从命令行启动的 GUI 应用程序会立即将您返回到命令行并GUI 应用程序在一个分离的进程中启动。我希望保留此行为。

我不介意这样的事情：

IF GUI THEN StartApplicationAsGUI(ParamStr(0))

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

我更喜欢这样的解决方案/建议：

IF 控制台模式 THEN
RunConsole(参数)
其他开始
应用程序.初始化;
Application.CreateForm(...)
应用程序.运行;
结束

（反之亦然，即在 GUI 模式下以特殊方式做事）

这样我在做GUI界面的时候还是可以使用Delphi的IDE和VCL...

Answer 1

在 Windows 上，这有点棘手。实际上，控制台应用程序和 GUI 应用程序之间的区别在于 PE 标头中的单个标志。您可以轻松编写创建窗口的控制台应用程序，但这样您始终拥有控制台窗口（虽然您可以将其隐藏，但当人们从 cmd 运行您的程序时，这并不好）。

您可以，但是如果需要，您可以编写一个 GUI 应用程序来创建一个控制台，使用 AllocConsole 函数：

一个进程只能与一个控制台关联，因此如果调用进程已经有一个控制台，AllocConsole 函数会失败。进程可以使用FreeConsole 函数将自己与其当前控制台分离，然后它可以调用AllocConsole 来创建新控制台或AttachConsole 附加到另一个控制台。

如果调用进程创建了子进程，则子进程继承新的控制台。

AllocConsole 为新控制台初始化标准输入、标准输出和标准错误句柄。标准输入句柄是控制台输入缓冲区的句柄，标准输出和标准错误句柄是控制台屏幕缓冲区的句柄。要检索这些句柄，请使用 GetStdHandle 函数。

此功能主要由图形用户界面 (GUI) 应用程序用来创建控制台窗口。 GUI 应用程序在没有控制台的情况下进行初始化。控制台应用程序使用控制台进行初始化，除非它们被创建为分离的进程（通过调用带有 DETACHED_PROCESS 标志的 CreateProcess 函数）。

但是，当从cmd 运行时，这可能会导致另一个控制台窗口出现，而不是重新使用现有的。不知道那里有没有好的解决方案。

Answer 2

IMO，这里最好的方法是让非可视类真正完成程序的工作。然后您可以从 GUI 程序调用它，也可以从单独的命令行程序调用它。这两个程序都只是您的类功能的包装器。

这也迫使设计保持整洁 - 您的类必须与应用程序的 GUI 层分离。

Answer 3

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

Answer 4

Windows 在控制台和 UI 应用程序的可执行文件头中具有不同的值（请参阅更多详细信息 here）。所以似乎不可能使相同的可执行文件在两种模式下工作。

作为替代方案，您可以在您的 UI 应用中打开一个控制台，但它将是新的控制台，而不是您启动应用的那个控制台。

Answer 5

AttachConsole() 可用于获取父控制台。 例如。如果应用程序是从 cmdline shell 启动的，则可以避免 AllocConsole()：

if not AttachConsole(ATTACH_PARENT_PROCESS)
then AllocConsole;

更多信息在这里： http://msdn.microsoft.com/en-us/library/windows/desktop/ms681952(v=vs.85).aspx