Delphi {$ IFDEF CONSOLE}问题

Question

我刚试过

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

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

并期望beep在运行期间听到,但不是.但是,以下测试有效:

  if IsConsole then
    beep;

为什么编译时测试不起作用？据我所知,从这份文件来看,它确实应该有效.

Answer 1

如果从链接器选​​项中选择"生成控制台应用程序",则会定义"CONSOLE".