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.
}
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» Download a file from the Internet with progress indicator
« How to find what control was previously selected
