Bladeren bron

* forgotten part of r13514

git-svn-id: trunk@13522 -
florian 16 jaren geleden
bovenliggende
commit
65690b9eee
1 gewijzigde bestanden met toevoegingen van 1 en 1 verwijderingen
  1. 1 1
      rtl/win/sysfile.inc

+ 1 - 1
rtl/win/sysfile.inc

@@ -235,7 +235,7 @@ begin
       shflags := file_Share_Write
       shflags := file_Share_Write
   else
   else
     if ((filemode and fmshareDenyNone) = fmshareDenyNone) then
     if ((filemode and fmshareDenyNone) = fmshareDenyNone) then
-      shflags := file_Share_Read + file_Share_Write;
+      shflags := fmShareDenyNoneFlags;
   { convert filemode to filerec modes }
   { convert filemode to filerec modes }
   case (flags and 3) of
   case (flags and 3) of
    0 : begin
    0 : begin