Làm cách nào để kiểm tra xem ứng dụng giao diện điều khiển Delphi của tôi có được chuyển hướng đến tệp hoặc đường ống không?

Question

Tôi có ứng dụng bảng điều khiển phải tắt hoặc bật một số hoạt động khi đầu ra được chuyển hướng (bên ngoài) sang tệp hoặc đường ống (myapp.exe> ​​Foo.bar)

Làm cách nào để kiểm tra xem ứng dụng giao diện điều khiển Delphi của tôi có được chuyển hướng không vào một tập tin hoặc đường ống?

Answer 1

bạn có thể sử dụng các chức năng GetStdHandle và GetFileType.

trước tiên bạn truy xuất bảng điều khiển đầu ra của bàn điều khiển bằng cách sử dụng hàm GetStdHandle và sau đó bạn có thể kiểm tra loại xử lý bằng hàm 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. 

Answer 2

Cách tiếp cận tôi trình bày ở đây cảm thấy bị hack nhưng tôi không thể tìm thấy cách tốt hơn để phát hiện xem đầu ra tiêu chuẩn đã được chuyển hướng khỏi bảng điều khiển màn hình hay chưa. Cách tiếp cận sử dụng GetFileType không thể phát hiện tất cả các dạng chuyển hướng vì một số chuyển hướng đến các thiết bị kiểu FILE_TYPE_CHAR.

---

Gọi GetConsoleMode() chuyển bộ xử lý đầu ra tiêu chuẩn. Nếu GetConsoleMode() không thành công thì bảng điều khiển của bạn đã được chuyển hướng.

program RedirectionDetection; 
{$APPTYPE CONSOLE} 
uses 
  Windows; 

function ConsoleRedirected: Boolean; 
var 
  Mode: DWORD; 
begin 
    Result := not GetConsoleMode(GetStdHandle(STD_OUTPUT_HANDLE), Mode); 
end; 

begin 
  if ConsoleRedirected then begin 
    Writeln('I have been redirected'); 
  end else begin 
    Writeln('I am a console'); 
    Readln; 
  end; 
end.