如何确定我是否作为控制台应用程序运行？ (Win32上的Delphi)

我有一个通用单元,可以记录到GExperts Debugger和/或OutputDebugString.我将在控制台应用程序中使用它,所以我希望它能够通过writeln()输出到stdout.
主可执行文件已经有{$APPTYPE CONSOLE},但我不认为这对我有帮助.将从几个地方调用日志记录例程：

>主控制台应用程序,将链接到BPL,
>来自另一个“需要”第一个bpl的BPL,……
>从静态链接单元的DLL.

将构建BPL和DLL而不能查看{$APPTYPE CONSOLE}指令,因此我不能使用IFDEF条件编译. BPL和DLL需要能够以任何方式进行,具体取决于主应用程序是否是常规的winapp或控制台应用程序.

我遇到的一个丑陋的解决方案是使用可执行文件的名称.例如：

if (UpperCase(ExtractFileName(ParamStr(0))) = 'MYCONSOLEAPP.EXE')  then ...

但我讨厌这样做,因为我可能有其他控制台应用程序……

我宁愿只有一个神奇的功能AmIAConsoleApp：boolean;
有什么相似的吗？
我在这个项目上使用Delphi2005.

更新：我看到我有点像this question的副本,但我想调查德尔福人,看看是否有更好的方法.

function IAmAConsoleApp: Boolean;
var
  Stdout: THandle;
begin
  Stdout := GetStdHandle(Std_Output_Handle);
  Win32Check(Stdout <> Invalid_Handle_Value);
  Result := Stdout <> 0;
end;