Delphi 控制台应用程序如何检查是否重定向到文件或管道？

您可以使用GetStdHandle和GetFileType功能。

首先使用 GetStdHandle 函数检索控制台输出句柄，然后可以使用该函数检查句柄的类型GetFileType。

{$APPTYPE CONSOLE}

{$R *.res}

uses

  Windows,

  SysUtils;

function ConsoleRedirected: Boolean;

var

  FileType : DWORD;

begin

  FileType:= GetFileType(GetStdHandle(STD_OUTPUT_HANDLE));

  Result  := (FileType=FILE_TYPE_PIPE) or (FileType=FILE_TYPE_DISK);

end;

begin

  try

    if ConsoleRedirected then

      Writeln('Hello From File')

    else

      Writeln('Hello Console');

  except

    on E: Exception do

      Writeln(E.ClassName, ': ', E.Message);

  end;

end.如何检查我的 Delphi 控制台应用程序是否重定向到文件或管道？<br/>