Search results for 'GetStdHandle'. 1 post(s) found.

  1. 2007/09/20 How to determine the output of a console application ?
2007/09/20 08:33

How to determine the output of a console application ?


When you write a console mode application (no GUI), the output by default goes to the screen, but this can be overridden by the process starting the app (see: How to capture the output from a console mode application).

Use the code below to find where the output is going:

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.
}
Trackback 3 Comment 0

Trackback : Cannot send a trackbact to this post.

  1. Subject different money making ideas

    Tracked from moneyideas 2010/01/29 05:18 delete

    moneyideas

  2. Subject different money making ideas

    Tracked from moneyideas 2010/01/29 13:53 delete

    moneyideas

  3. Subject different money making ideas

    Tracked from moneyideas 2010/01/31 16:41 delete

    moneyideas