如何根据参数创建Delphi混合(控制台或GUI)应用程序[[副本]

我不确定IDE是否允许这样的代码,但请尝试:

uses
  Vcl.Forms,
  Winapi.Windows;

function GetConsoleWindow: HWnd; stdcall; 
  external 'kernel32.dll' name 'GetConsoleWindow';
function AttachConsole(ProcessId: DWORD): BOOL; stdcall; 
  external 'kernel32.dll' name 'AttachConsole';

const
  ATTACH_PARENT_PROCESS = DWORD(-1);

begin
  if ParamStr(1) = 'test' then
  begin
    if not AttachConsole(ATTACH_PARENT_PROCESS) then
      AllocConsole;
    Writeln('Yay! This is a console');
  end
  else
  begin
    Application.Initialize;
    Application.MainFormOnTaskbar := True;
    Application.CreateForm(TForm42, Form42);
    Application.Run;
  end;
end.

不要使用 {$APPTYPE CONSOLE} 在这里。

AttachConsole

AllocConsole 将控制台附加到当前进程。您甚至可以在GUI和 Writeln Write 从您的GUI代码。

如果你想阻止的话,总是这样 AllocConsole 一个新的,专门用它。但是,您可能会得到两个控制台,父控制台(如果有的话)和新控制台。做你的选择。