Fix compilation of system.ioutils unit for wince system

packages/vcl-compat/src/system.ioutils.pp

@@ -296,6 +296,9 @@ uses
   {$IfDef MSWINDOWS}
     windows, WinDirs,
   {$EndIf}
+  {$IfDef WINCE}
+    windows,
+  {$EndIf}
   {$IfDef UNIX}
     BaseUnix,
   {$EndIf}
@@ -312,7 +315,7 @@ ResourceString
   errStatFailed = 'Fstat for %a failed. Err.No.: %d';
   {$EndIf}
 
-{$IFDEF WINDOWS}
+{$IFDEF MSWINDOWS}
 Const
   WinAttrs : Array[TFileAttribute] of Integer =
      (FILE_ATTRIBUTE_READONLY, FILE_ATTRIBUTE_HIDDEN, FILE_ATTRIBUTE_SYSTEM,
@@ -320,7 +323,19 @@ Const
       FILE_ATTRIBUTE_NORMAL, FILE_ATTRIBUTE_TEMPORARY,FILE_ATTRIBUTE_SPARSE_FILE,
       FILE_ATTRIBUTE_REPARSE_POINT, FILE_ATTRIBUTE_COMPRESSED, FILE_ATTRIBUTE_OFFLINE,
       FILE_ATTRIBUTE_NOT_CONTENT_INDEXED, FILE_ATTRIBUTE_ENCRYPTED,FILE_ATTRIBUTE_REPARSE_POINT);
+{$ENDIF}
+{$IFDEF WINCE}
+  { Missing attributes are put to zero }
+Const
+  WinAttrs : Array[TFileAttribute] of Integer =
+     (FILE_ATTRIBUTE_READONLY, FILE_ATTRIBUTE_HIDDEN, FILE_ATTRIBUTE_SYSTEM,
+      FILE_ATTRIBUTE_DIRECTORY,FILE_ATTRIBUTE_ARCHIVE, 0{FILE_ATTRIBUTE_DEVICE},
+      FILE_ATTRIBUTE_NORMAL, FILE_ATTRIBUTE_TEMPORARY,0{FILE_ATTRIBUTE_SPARSE_FILE},
+      0{FILE_ATTRIBUTE_REPARSE_POINT}, FILE_ATTRIBUTE_COMPRESSED, 0{FILE_ATTRIBUTE_OFFLINE},
+      0{FILE_ATTRIBUTE_NOT_CONTENT_INDEXED}, 0{FILE_ATTRIBUTE_ENCRYPTED},0{FILE_ATTRIBUTE_REPARSE_POINT});
+{$ENDIF}
 
+{$IFDEF WINDOWS}
 function FileAttributesToFlags(const Attributes: TFileAttributes): Integer;
 
 var