* defined filemode constants in windows unit

rtl/win32/syswin32.pp

@@ -456,11 +456,6 @@ procedure do_open(var f;p : pchar;flags:longint);
 Const
   file_Share_Read  = $00000001;
   file_Share_Write = $00000002;
-  fmShareCompat    = $00000000;
-  fmShareExclusive = $10;
-  fmShareDenyWrite = $20;
-  fmShareDenyRead  = $30;
-  fmShareDenyNone  = $40;
 Var
   shflags,
   oflags,cd : longint;
@@ -1330,7 +1325,10 @@ end.
 
 {
   $Log$
-  Revision 1.63  2000-03-31 23:21:19  pierre
+  Revision 1.64  2000-05-08 13:25:34  peter
+    * defined filemode constants in windows unit
+
+  Revision 1.63  2000/03/31 23:21:19  pierre
     * multiple exception handling works
       (for linux only if syslinux is compiled with -dnewsignal)
 
@@ -1398,4 +1396,4 @@ end.
   Revision 1.44  1999/09/10 15:40:35  peter
     * fixed do_open flags to be > $100, becuase filemode can be upto 255
 
-}
+}

rtl/win32/win32.inc

@@ -42,6 +42,13 @@ const
    FILE_ATTRIBUTE_SYSTEM = 4;
    FILE_ATTRIBUTE_TEMPORARY = 256;
 
+   { Share mode open }
+   fmShareCompat    = $00000000;
+   fmShareExclusive = $10;
+   fmShareDenyWrite = $20;
+   fmShareDenyRead  = $30;
+   fmShareDenyNone  = $40;
+
    { flags for SetFilePos }
    FILE_BEGIN = 0;
    FILE_CURRENT = 1;
@@ -109,7 +116,10 @@ type
 
 {
   $Log$
-  Revision 1.11  2000-02-09 16:59:34  peter
+  Revision 1.12  2000-05-08 13:25:34  peter
+    * defined filemode constants in windows unit
+
+  Revision 1.11  2000/02/09 16:59:34  peter
     * truncated log
 
   Revision 1.10  2000/01/25 13:15:35  florian

rtl/win32/wininc/redef.inc

@@ -36,6 +36,13 @@ type
 
 
   const
+   { Openfile Share modes normally declared in sysutils }
+   fmShareCompat    = $00000000;
+   fmShareExclusive = $10;
+   fmShareDenyWrite = $20;
+   fmShareDenyRead  = $30;
+   fmShareDenyNone  = $40;
+
      { HRESULT codes, delphilike }
      S_OK    = $00000000;
      S_FALSE = $00000001;
@@ -115,7 +122,10 @@ function SetScrollInfo(_para1:HWND; _para2:longint;const _para3:TSCROLLINFO; _pa
 
 {
   $Log$
-  Revision 1.6  2000-04-22 19:51:08  marco
+  Revision 1.7  2000-05-08 13:25:34  peter
+    * defined filemode constants in windows unit
+
+  Revision 1.6  2000/04/22 19:51:08  marco
    * Forgot to remove the tpoint stuff.
 
   Revision 1.5  2000/04/22 17:46:05  marco