How to determine the output of a console application ?

program SampleConsoleApp;
{$APPTYPE CONSOLE}

uses
   SysUtils, Windows, Dialogs;
var
   hStdOut: THandle;
begin
   writeln('Some output') ;
   hStdOut := GetStdHandle(STD_OUTPUT_HANDLE) ;
   if hStdOut = INVALID_HANDLE_VALUE then RaiseLastOsError;

   case GetFileType(hStdOut) of
     FILE_TYPE_UNKNOWN:
       ShowMessage('Unknown output ') ;
     FILE_TYPE_DISK:
       ShowMessage('Output to a File') ;
     FILE_TYPE_CHAR:
       ShowMessage('Console output') ;
     FILE_TYPE_PIPE:
       ShowMessage('Pipe output') ;
   end;
end.

{
When this app is run "normally"
it will display a 'Console output' message.
}