Added stubs SHRegCloseKey(), SHRegOpenKey[AW](), SHRegQueryValueExA()

and FileIconInit() needed by Win95 explorer.

dlls/shell32/shellord.c

@@ -989,6 +989,48 @@ HRESULT WINAPI SHGetDataFromIDListA(DWORD u, DWORD v, DWORD w, DWORD x, DWORD y)
 {	FIXME(shell,"0x%04lx 0x%04lx 0x%04lx 0x%04lx 0x%04lx stub\n",u,v,w,x,y);
 	return 0;
 }
+/*************************************************************************
+ * SHRegCloseKey [SHELL32.505]
+ *
+ * XXX I am not sure if the given param is correct. :-)
+ */
+HRESULT WINAPI SHRegCloseKey(HKEY key)
+{	FIXME(shell,"(0x%08lx)\n", key);
+	/* XXX Is this correct? */ 
+	return RegCloseKey(key);
+}
+/*************************************************************************
+ * SHRegOpenKey32A [SHELL32.506]
+ *
+ * XXX I am not sure if the given param is correct. :-)
+ */
+HRESULT WINAPI SHRegOpenKey32A(HKEY hKey, LPSTR lpSubKey, LPHKEY phkResult)
+{	FIXME(shell,"(0x%08lx, %s, 0x%08lx)\n", hKey, debugstr_a(lpSubKey),
+	      phkResult);
+	/* XXX Is this correct? */ 
+	return RegOpenKey32A(hKey, lpSubKey, phkResult);
+}
+/*************************************************************************
+ * SHRegOpenKey32W [SHELL32.507]
+ *
+ * XXX I am not sure if the given param is correct. :-)
+ */
+HRESULT WINAPI SHRegOpenKey32W(HKEY hKey, LPWSTR lpSubKey, LPHKEY phkResult)
+{	FIXME(shell,"(0x%08lx, %s, 0x%08lx)\n", hKey, debugstr_w(lpSubKey),
+	      phkResult);
+	/* XXX Is this correct? */ 
+	return RegOpenKey32W(hKey, lpSubKey, phkResult);
+}
+/*************************************************************************
+ * SHRegQueryValueExA [SHELL32.509]
+ *
+ * XXX I know this is not the correct parameter. Check with documentation.
+ */
+HRESULT WINAPI SHRegQueryValueEx32A(DWORD u, LPSTR v, DWORD w, DWORD x,
+				  DWORD y, DWORD z)
+{	FIXME(shell,"0x%04lx %s 0x%04lx 0x%04lx 0x%04lx  0x%04lx stub\n",u,debugstr_a(v),w,x,y,z);
+	return 0;
+}
 /*************************************************************************
  * SHRegQueryValueEx32W [NT4.0:SHELL32.511]
  *
@@ -1014,6 +1056,14 @@ HRESULT WINAPI WriteCabinetState(DWORD u)
 {	FIXME(shell,"0x%04lx stub\n",u);
 	return 0;
 }
+/*************************************************************************
+ * FileIconInit [SHELL32.660]
+ *
+ */
+BOOL32 WINAPI FileIconInit(BOOL32 bFullInit)
+{	FIXME(shell,"(%s)\n", bFullInit ? "true" : "false");
+	return 0;
+}
 /*************************************************************************
  * IsUserAdmin [NT 4.0:SHELL32.680]
  *

relay32/shell32.spec

@@ -337,11 +337,11 @@ init	Shell32LibMain
  328 stub StrStrW # proper ordinal unknown 
  329 stub WOWShellExecute # proper ordinal unknown
 
- 505 stub SHRegCloseKey@4
+ 505 stdcall SHRegCloseKey (long) SHRegCloseKey
- 506 stub SHRegOpenKeyA@12
+ 506 stdcall SHRegOpenKeyA (long str long) SHRegOpenKey32A
- 507 stub SHRegOpenKeyW@12
+ 507 stdcall SHRegOpenKeyW (long wstr long) SHRegOpenKey32W
  508 stub SHRegQueryValueA@16
- 509 stub SHRegQueryValueExA@24
+ 509 stdcall SHRegQueryValueExA(long str ptr ptr ptr ptr) SHRegQueryValueEx32A
  510 stub SHRegQueryValueW@16
  511 stdcall SHRegQueryValueExW (long wstr ptr ptr ptr ptr) SHRegQueryValueEx32W
  512 stub SHRegDeleteKeyW@8
@@ -368,7 +368,7 @@ init	Shell32LibMain
  652 stdcall WriteCabinetState (long) WriteCabinetState
  653 stub PathProcessCommand
 
- 660 stub FileIconInit
+ 660 stdcall FileIconInit (long) FileIconInit
 
  680 stdcall IsUserAdmin () IsUserAdmin