Search results for 'GetStdHandle'. 1 post(s) found.
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.
}
{$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.
}
Another posts included in "Delphi"
| How to install an INF file using Delphi ? (0) | 2007/09/20 |
| How to play sounds on the PC Speaker ? (0) | 2007/09/20 |
| How to remove your application from TaskBar (0) | 2007/09/25 |
| Get text from the control at pos x,y on screen (0) | 2007/09/20 |
| Get dimensions of usable space on monitor (work area) (0) | 2007/09/20 |
| Get system info (free memory, etc) (0) | 2007/09/20 |
| How to Get Filenames from Clipboard ? (0) | 2007/09/20 |
| How to Get Windows OS Version ? (0) | 2007/09/20 |
FILE_TYPE_CHAR,
FILE_TYPE_DISK,
FILE_TYPE_PIPE,
FILE_TYPE_UNKNOWN,
GetFileType,
GetStdHandle,
STD_OUTPUT_HANDLE,
Windows API
Trackback : Cannot send a trackbact to this post.
-
Subject different money making ideas
2010/01/29 05:18
moneyideas
-
Subject different money making ideas
2010/01/29 13:53
moneyideas
-
Subject different money making ideas
2010/01/31 16:41
moneyideas
Prev
Rss Feed