-- Zusammenführen von r13537 in ».«:

U    rtl\win\sysfile.inc

git-svn-id: branches/fixes_2_4@13566 -

rtl/win/sysfile.inc

@@ -235,7 +235,13 @@ begin
       shflags := file_Share_Write
   else
     if ((filemode and fmshareDenyNone) = fmshareDenyNone) then
-      shflags := fmShareDenyNoneFlags;
+      shflags :=
+{$ifdef WINCE}
+        { WinCE does not know file_share_delete }
+        file_Share_Read or file_Share_Write;
+{$else WINCE}
+        fmShareDenyNoneFlags;
+{$endif WINCE}
   { convert filemode to filerec modes }
   case (flags and 3) of
    0 : begin