Browse Source

* convert disk full to run time error 101

git-svn-id: trunk@18131 -
florian 14 years ago
parent
commit
28126cf0d5
1 changed files with 3 additions and 0 deletions
  1. 3 0
      rtl/win/sysos.inc

+ 3 - 0
rtl/win/sysos.inc

@@ -102,6 +102,7 @@ const
 {   A pipe has been closed on the other end }
 {   A pipe has been closed on the other end }
 {   Removing that error allows eof to works as on other OSes }
 {   Removing that error allows eof to works as on other OSes }
     ERROR_BROKEN_PIPE = 109;
     ERROR_BROKEN_PIPE = 109;
+    ERROR_DISK_FULL = 112;
     ERROR_DIR_NOT_EMPTY = 145;
     ERROR_DIR_NOT_EMPTY = 145;
     ERROR_ALREADY_EXISTS = 183;
     ERROR_ALREADY_EXISTS = 183;
 
 
@@ -282,6 +283,8 @@ threadvar
            { to the DOS/TP compatible error codes when in this range }
            { to the DOS/TP compatible error codes when in this range }
            res := word(pErrno^)+131;
            res := word(pErrno^)+131;
          end;
          end;
+       ERROR_DISK_FULL :
+         res := 101;
        ERROR_DIR_NOT_EMPTY,
        ERROR_DIR_NOT_EMPTY,
        ERROR_ALREADY_EXISTS,
        ERROR_ALREADY_EXISTS,
        ERROR_SHARING_VIOLATION :
        ERROR_SHARING_VIOLATION :