diff --git a/compiler/scandir.pas b/compiler/scandir.pas
index 262b75796d..9240af3af2 100644
--- a/compiler/scandir.pas
+++ b/compiler/scandir.pas
@@ -223,7 +223,7 @@ implementation
       var
          hs : string;
       begin
-        if not (target_info.system in [system_i386_win32,system_i386_os2,
+        if not (target_info.system in system_all_windows + [system_i386_os2,
                                        system_i386_emx, system_powerpc_macos]) then
           Message(scan_w_app_type_not_support);
         if not current_module.in_global then
diff --git a/compiler/systems.pas b/compiler/systems.pas
index a6053cb3bc..b069600445 100644
--- a/compiler/systems.pas
+++ b/compiler/systems.pas
@@ -325,6 +325,9 @@ interface
                                         system_x86_6432_linux];
        { all real windows systems, no cripple ones like wince, wdosx et. al. }
        system_windows : set of tsystem = [system_i386_win32,system_x86_64_win64,system_ia64_win64];
+       { all windows systems }
+       system_all_windows : set of tsystem = [system_i386_win32,system_x86_64_win64,system_ia64_win64,
+                                              system_arm_wince,system_i386_wince];
 
        cpu2str : array[TSystemCpu] of string =
             ('','i386','m68k','alpha','powerpc','sparc','vm','ia64','x86_64',