delphi CONSOLE 控制台程序2

program ConsoleTest;

{.$APPTYPE CONSOLE}

uses

  Windows;

begin

{$IFDEF CONSOLE}

  WriteLn('CONSOLE is defined');

{$ELSE}

  if IsConsole then

    WriteLn('CONSOLE is not defined')

  else

    Windows.MessageBox(0, 'CONSOLE is not defined', nil, MB_OK or MB_ICONINFORMATION);

{$ENDIF}

  if IsConsole then begin

    WriteLn('IsConsole returns true');

    WriteLn('Press Enter');

    Readln;

  end else begin

    Windows.MessageBox(0, 'IsConsole returns false', nil, MB_OK or MB_ICONINFORMATION);

  end;

end.