* fixed wince console I/O.

git-svn-id: trunk@3720 -

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;