diff --git a/rtl/win/sysfile.inc b/rtl/win/sysfile.inc
index de9b20b6df..d1dca22fbb 100644
--- a/rtl/win/sysfile.inc
+++ b/rtl/win/sysfile.inc
@@ -32,7 +32,7 @@ begin
 {$ifndef WINCE}
   do_isdevice:=(getfiletype(handle)=2);
 {$else WINCE}
-  do_isdevice:=False;
+  do_isdevice:=(handle = StdInputHandle) or (handle = StdOutputHandle) or (handle = StdErrorHandle);
 {$endif WINCE}
 end;