Delphi {$IFDEF CONSOLE} 问题

Question

我刚刚尝试过

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
  {$IFDEF CONSOLE}
    beep;
  {$ENDIF}
end.

并期望在运行时听到蜂鸣声，但事实并非如此。不过，以下测试有效:

  if IsConsole then
    beep;

为什么编译时测试不起作用？据我了解this doc ，它肯定应该有效。

Answer 1

如果从链接器选​​项中选择“生成控制台应用程序”，则会定义“CONSOLE”。