* fix for bug #38021 based on patch by Sergey Larin

git-svn-id: trunk@47269 -
(cherry picked from commit 5c119d5f67a4c54069636bc7cded4d0b497d02c5)

rtl/win/sysfile.inc

@@ -26,7 +26,7 @@ end;
 
 procedure do_close(h : thandle);
 begin
-  if do_isdevice(h) then
+  if (h=StdInputHandle) or (h=StdOutputHandle) or (h=StdErrorHandle) then
    exit;
   if CloseHandle(h)=0 then
     Errno2InOutRes(GetLastError);