From f4c6543a49b30b044b45f61681586ecab6c88eb5 Mon Sep 17 00:00:00 2001
From: Giannis Adamopoulos <gadamopoulos@reactos.org>
Date: Mon, 20 Feb 2017 20:18:10 +0000
Subject: [PATCH] [SHLWAPI]: Stub SHPropertyBag_WriteLONG and
 SHPropertyBag_WriteStr. Patch by Jared Smudde. CORE-12805

svn path=/trunk/; revision=73866
---
 reactos/dll/win32/shlwapi/ordinal.c    | 40 ++++++++++++++++++++++++++
 reactos/dll/win32/shlwapi/shlwapi.spec |  4 +--
 2 files changed, 42 insertions(+), 2 deletions(-)

diff --git a/reactos/dll/win32/shlwapi/ordinal.c b/reactos/dll/win32/shlwapi/ordinal.c
index 7a59d7775c3..dea6ba17cfb 100644
--- a/reactos/dll/win32/shlwapi/ordinal.c
+++ b/reactos/dll/win32/shlwapi/ordinal.c
@@ -5197,6 +5197,46 @@ HRESULT WINAPI SHPropertyBag_ReadLONG(IPropertyBag *ppb, LPCWSTR pszPropName, LP
     return hr;
 }
 
+#ifdef __REACTOS__
+/**************************************************************************
+ *  SHPropertyBag_WriteLONG (SHLWAPI.497)
+ *
+ * This function asks a property bag to write a named property as a LONG.
+ *
+ * PARAMS
+ *  ppb: a IPropertyBag interface
+ *  pszPropName:  Unicode string that names the property
+ *  lValue: address to receive the property value as a 32-bit signed integer
+ *
+ * RETURNS
+ *  HRESULT codes
+ */
+HRESULT WINAPI SHPropertyBag_WriteLONG(IPropertyBag *ppb, LPCWSTR pszPropName, LONG lValue)
+{
+	UNIMPLEMENTED;
+	return E_NOTIMPL;
+}
+
+/**************************************************************************
+ *  SHPropertyBag_WriteStr (SHLWAPI.495)
+ *
+ * This function asks a property bag to write a string as the value of a named property.
+ *
+ * PARAMS
+ *  ppb: a IPropertyBag interface
+ *  pszPropName:  Unicode string that names the property
+ *  pValue: address to write the property value
+ *
+ * RETURNS
+ *  HRESULT codes
+ */
+HRESULT WINAPI SHPropertyBag_WriteStr(IPropertyBag *ppb, LPCWSTR pszPropName, LPCWSTR pszValue)
+{
+	UNIMPLEMENTED;
+	return E_NOTIMPL;
+}
+#endif
+
 /* return flags for SHGetObjectCompatFlags, names derived from registry value names */
 #define OBJCOMPAT_OTNEEDSSFCACHE           0x00000001
 #define OBJCOMPAT_NO_WEBVIEW               0x00000002
diff --git a/reactos/dll/win32/shlwapi/shlwapi.spec b/reactos/dll/win32/shlwapi/shlwapi.spec
index 701a4d3a541..e49c87e1c14 100644
--- a/reactos/dll/win32/shlwapi/shlwapi.spec
+++ b/reactos/dll/win32/shlwapi/shlwapi.spec
@@ -492,9 +492,9 @@
 492 stub -noname PrettifyFileDescriptionW
 493 stub -noname SHPropertyBag_ReadType
 494 stub -noname SHPropertyBag_ReadStr
-495 stub -noname SHPropertyBag_WriteStr
+495 stdcall -noname SHPropertyBag_WriteStr(ptr wstr wstr)
 496 stdcall -noname SHPropertyBag_ReadLONG(ptr wstr ptr)
-497 stub -noname SHPropertyBag_WriteLONG
+497 stdcall -noname SHPropertyBag_WriteLONG(ptr wstr long)
 498 stub -noname SHPropertyBag_ReadBOOLOld
 499 stub -noname SHPropertyBag_WriteBOOL
 500 stdcall AssocGetPerceivedType(wstr ptr ptr ptr)