Robert Shearman : ole32: Set the storage's class ID in OleCreate.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: aaa26b2702759530768685f4176b9075c225f1e9
URL:    http://source.winehq.org/git/?p=wine.git;a=commit;h=aaa26b2702759530768685f4...

Author: Robert Shearman 
Date:   Thu Aug 31 17:13:45 2006 +0100

ole32: Set the storage's class ID in OleCreate.

---

dlls/ole32/ole2.c |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/dlls/ole32/ole2.c b/dlls/ole32/ole2.c
index 164970d..a5354cc 100644
--- a/dlls/ole32/ole2.c
+++ b/dlls/ole32/ole2.c
@@ -2304,7 +2304,12 @@ HRESULT WINAPI OleCreate(

FIXME("\n\t%s\n\t%s semi-stub!\n", debugstr_guid(rclsid), debugstr_guid(riid));

-    if (SUCCEEDED((hres = CoCreateInstance(rclsid, 0, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER|CLSCTX_LOCAL_SERVER , riid, (LPVOID*)&pUnk))))
+    hres = CoCreateInstance(rclsid, 0, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER|CLSCTX_LOCAL_SERVER , riid, (LPVOID*)&pUnk);
+
+    if (SUCCEEDED(hres))
+        hres = IStorage_SetClass(pStg, rclsid);
+
+    if (SUCCEEDED(hres))
     {
         if (pClientSite)
         {