shlwapi: Forward SHRegDuplicateHKey() to shcore.dll.

dlls/shcore/Makefile.in

 MODULE    = shcore.dll
+IMPORTLIB = shcore
 IMPORTS   = user32 gdi32 ole32 advapi32
 
 EXTRADLLFLAGS = -mno-cygwin

dlls/shlwapi/Makefile.in

 EXTRADEFS = -D_SHLWAPI_
 MODULE    = shlwapi.dll
 IMPORTLIB = shlwapi
-IMPORTS   = uuid user32 gdi32 advapi32 kernelbase
+IMPORTS   = uuid shcore user32 gdi32 advapi32 kernelbase
 DELAYIMPORTS = userenv oleaut32 ole32 comctl32 comdlg32 mpr mlang urlmon shell32 winmm version
 
 EXTRADLLFLAGS = -mno-cygwin

dlls/shlwapi/reg.c

@@ -932,26 +932,6 @@ BOOL WINAPI UnregisterExtensionForMIMETypeW(LPCWSTR lpszType)
   return TRUE;
 }
 
-/*************************************************************************
- * SHRegDuplicateHKey   [SHLWAPI.@]
- *
- * Create a duplicate of a registry handle.
- *
- * PARAMS
- *  hKey [I] key to duplicate.
- *
- * RETURNS
- *  A new handle pointing to the same key as hKey.
- */
-HKEY WINAPI SHRegDuplicateHKey(HKEY hKey)
-{
-    HKEY newKey = 0;
-
-    RegOpenKeyExA(hKey, 0, 0, MAXIMUM_ALLOWED, &newKey);
-    TRACE("new key is %p\n", newKey);
-    return newKey;
-}
-
 /*
  * The following functions are ORDINAL ONLY:
  */

dlls/shlwapi/shlwapi.spec

@@ -720,7 +720,7 @@
 @ stdcall SHRegDeleteEmptyUSKeyW(long wstr long)
 @ stdcall SHRegDeleteUSValueA(long str long)
 @ stdcall SHRegDeleteUSValueW(long wstr long)
-@ stdcall SHRegDuplicateHKey (long)
+@ stdcall -import SHRegDuplicateHKey(long)
 @ stdcall SHRegEnumUSKeyA(long long str ptr long)
 @ stdcall SHRegEnumUSKeyW(long long wstr ptr long)
 @ stdcall SHRegEnumUSValueA(long long ptr ptr ptr ptr ptr long)