[SHELL32] Exclude executable extensions from File Types dialog (reactos#7452)

PathIsExeW is used and will exclude exe, com, pif, cmd, bat, scf and scr. The previous reactos#6122 PR added support for the FTA_Exclude flag and that will exclude .lnk files.

CORE-19805

Author: whindsaks

dll/win32/shell32/dialogs/filetypes.cpp

@@ -28,6 +28,8 @@ WINE_DEFAULT_DEBUG_CHANNEL (fprop);
 
 /////////////////////////////////////////////////////////////////////////////
 
+EXTERN_C BOOL PathIsExeW(LPCWSTR lpszPath);
+
 #define FTA_MODIFYMASK (FTA_OpenIsSafe) // Bits modified by EditTypeDlg
 #define NOASSOCRESID IDI_SHELL_DOCUMENT
 #define SUPPORT_EXTENSIONWITHOUTPROGID 1 // NT5 does not support these but NT6 does
@@ -741,6 +743,14 @@ FileTypesDlg_InsertToLV(HWND hListView, LPCWSTR Assoc, INT iItem, PFILE_TYPE_GLO
 
     if (Assoc[0] == L'.')
     {
+        if (PathIsExeW(Assoc))
+        {
+exclude:
+            HeapFree(pG->hHeap, 0, Entry);
+            RegCloseKey(hKey);
+            return NULL;
+        }
+
         dwSize = sizeof(Entry->ClassKey);
         if (RegQueryValueExW(hKey, NULL, NULL, NULL, LPBYTE(Entry->ClassKey), &dwSize))
         {
@@ -754,21 +764,13 @@ FileTypesDlg_InsertToLV(HWND hListView, LPCWSTR Assoc, INT iItem, PFILE_TYPE_GLO
         }
 #else
         if (!Entry->ClassKey[0])
-        {
-            HeapFree(pG->hHeap, 0, Entry);
-            RegCloseKey(hKey);
-            return NULL;
-        }
+            goto exclude;
 #endif
     }
 
     Entry->EditFlags = GetRegDWORD(hKey, L"EditFlags", 0);
     if (Entry->EditFlags & FTA_Exclude)
-    {
-        HeapFree(pG->hHeap, 0, Entry);
-        RegCloseKey(hKey);
-        return NULL;
-    }
+        goto exclude;
 
     wcscpy(Entry->FileExtension, Assoc);