我有一个通用单元,可以记录到GExperts Debugger和/或OutputDebugString.我将在控制台应用程序中使用它,所以我希望它能够通过writeln()输出到stdout.
主可执行文件已经有{$APPTYPE CONSOLE},但我不认为这对我有帮助.将从几个地方调用日志记录例程：
主可执行文件已经有{$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的副本,但我想调查德尔福人,看看是否有更好的方法.
调用GetStdHandle(Std_Output_Handle).如果成功并返回零,则无法写入控制台.其他返回值表示控制台已连接到进程,因此您可以向其写入(尽管控制台可能不是在控制台程序中记录消息的最理想位置,因为它们会干扰正常输出).像这样的东西：
function IAmAConsoleApp: Boolean; var Stdout: THandle; begin Stdout := GetStdHandle(Std_Output_Handle); Win32Check(Stdout <> Invalid_Handle_Value); Result := Stdout <> 0; end;
