From c564dfeb5bbda59a1dbb4d51ac884a0303598050 Mon Sep 17 00:00:00 2001
From: yury <jura@cp-lab.com>
Date: Sun, 28 May 2006 20:09:57 +0000
Subject: [PATCH] * fixed wince console I/O.

git-svn-id: trunk@3720 -
---
 rtl/win/sysfile.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;