[PATCH 3/4] shlwapi: Forward SHRegSetPath() to shcore.dll.

[Nikolay Sivov]

Signed-off-by: Nikolay Sivov 
---
 dlls/shlwapi/reg.c        | 53 ---------------------------------------
 dlls/shlwapi/shlwapi.spec |  4 +--
 2 files changed, 2 insertions(+), 55 deletions(-)

diff --git a/dlls/shlwapi/reg.c b/dlls/shlwapi/reg.c
index f8af8b3065..08cc26ee48 100644
--- a/dlls/shlwapi/reg.c
+++ b/dlls/shlwapi/reg.c
@@ -47,59 +47,6 @@ static const WCHAR szExtensionW[] = { 'E', 'x', 't','e','n','s','i','o','n','\0'
 INT     WINAPI SHStringFromGUIDW(REFGUID,LPWSTR,INT);
 HRESULT WINAPI SHRegGetCLSIDKeyW(REFGUID,LPCWSTR,BOOL,BOOL,PHKEY);

-/*************************************************************************
- * SHRegSetPathA   [SHLWAPI.@]
- *
- * Write a path to the registry.
- *
- * PARAMS
- *   hKey       [I] Handle to registry key
- *   lpszSubKey [I] Name of sub key containing path to set
- *   lpszValue  [I] Name of value containing path to set
- *   lpszPath   [O] Path to write
- *   dwFlags    [I] Reserved, must be 0.
- *
- * RETURNS
- *   Success: ERROR_SUCCESS.
- *   Failure: An error code from SHSetValueA().
- */
-DWORD WINAPI SHRegSetPathA(HKEY hKey, LPCSTR lpszSubKey, LPCSTR lpszValue,
-                           LPCSTR lpszPath, DWORD dwFlags)
-{
-  char szBuff[MAX_PATH];
-
-  FIXME("(hkey=%p,%s,%s,%p,%d) - semi-stub\n",hKey, debugstr_a(lpszSubKey),
-        debugstr_a(lpszValue), lpszPath, dwFlags);
-
-  lstrcpyA(szBuff, lpszPath);
-
-  /* FIXME: PathUnExpandEnvStringsA(szBuff); */
-
-  return SHSetValueA(hKey,lpszSubKey, lpszValue, REG_SZ, szBuff,
-                     lstrlenA(szBuff));
-}
-
-/*************************************************************************
- * SHRegSetPathW   [SHLWAPI.@]
- *
- * See SHRegSetPathA.
- */
-DWORD WINAPI SHRegSetPathW(HKEY hKey, LPCWSTR lpszSubKey, LPCWSTR lpszValue,
-                           LPCWSTR lpszPath, DWORD dwFlags)
-{
-  WCHAR szBuff[MAX_PATH];
-
-  FIXME("(hkey=%p,%s,%s,%p,%d) - semi-stub\n",hKey, debugstr_w(lpszSubKey),
-        debugstr_w(lpszValue), lpszPath, dwFlags);
-
-  lstrcpyW(szBuff, lpszPath);
-
-  /* FIXME: PathUnExpandEnvStringsW(szBuff); */
-
-  return SHSetValueW(hKey,lpszSubKey, lpszValue, REG_SZ, szBuff,
-                     lstrlenW(szBuff));
-}
-
 /*************************************************************************
  * SHGetValueA   [SHLWAPI.@]
  *
diff --git a/dlls/shlwapi/shlwapi.spec b/dlls/shlwapi/shlwapi.spec
index 334b5fece5..98b745c416 100644
--- a/dlls/shlwapi/shlwapi.spec
+++ b/dlls/shlwapi/shlwapi.spec
@@ -739,8 +739,8 @@
 @ stdcall SHRegQueryInfoUSKeyW ( long ptr ptr ptr ptr long )
 @ stdcall SHRegQueryUSValueA ( long str ptr ptr ptr long ptr long )
 @ stdcall SHRegQueryUSValueW ( long wstr ptr ptr ptr long ptr long )
-@ stdcall SHRegSetPathA(long str str str long)
-@ stdcall SHRegSetPathW(long wstr wstr wstr long)
+@ stdcall -import SHRegSetPathA(long str str str long)
+@ stdcall -import SHRegSetPathW(long wstr wstr wstr long)
 @ stdcall SHRegSetUSValueA ( str str long ptr long long)
 @ stdcall SHRegSetUSValueW ( wstr wstr long ptr long long)
 @ stdcall SHRegWriteUSValueA (long str long ptr long long)