mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 18:09:27 +02:00
* patch by Ludo Brands to fix #20481: GetFileType cannot be used on windows to determine if a handle is a console handle because the function does not distinguish between consoles and printers, resolves #20481
git-svn-id: trunk@19532 -
This commit is contained in:
parent
dbaf153163
commit
3c0256bd7b
@ -20,11 +20,7 @@
|
||||
|
||||
function do_isdevice(handle:thandle):boolean;
|
||||
begin
|
||||
{$ifndef WINCE}
|
||||
do_isdevice:=(getfiletype(handle)=2);
|
||||
{$else WINCE}
|
||||
do_isdevice:=(handle = StdInputHandle) or (handle = StdOutputHandle) or (handle = StdErrorHandle);
|
||||
{$endif WINCE}
|
||||
end;
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user