मैं कैसे जांचूं कि मेरा डेल्फी कंसोल ऐप किसी फ़ाइल या पाइप पर रीडायरेक्ट किया गया है या नहीं?

Question

मैं एक सांत्वना अनुप्रयोग है कि अक्षम या जब उत्पादन एक फ़ाइल या पाइप पर भेज दिया जाएगा (बाह्य) कुछ कार्यों सक्षम करना होगा (myapp.exe> ​​Foo.bar) है

मैं कैसे जांच कर सकते हैं मेरी डेल्फी सांत्वना एप्लिकेशन रीडायरेक्ट हो गई है एक फाइल या पाइप के लिए?

Answer 1

आप 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. 

की

Answer 2

मैं जो दृष्टिकोण प्रस्तुत करता हूं वह हैकी लगता है लेकिन मुझे यह पता लगाने का एक बेहतर तरीका नहीं मिल रहा है कि मानक आउटपुट को स्क्रीन कंसोल से रीडायरेक्ट किया गया है या नहीं। GetFileType का उपयोग करने का दृष्टिकोण सभी प्रकार के पुनर्निर्देशन का पता नहीं लगा सकता है क्योंकि कुछ पुनर्निर्देशन FILE_TYPE_CHAR प्रकार के उपकरणों के लिए हैं।

---

मानक आउटपुट हैंडल को पारित GetConsoleMode() पर कॉल करें। यदि GetConsoleMode() विफल रहता है तो आपका कंसोल रीडायरेक्ट कर दिया गया है।

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.