Created stub for CreateClassMoniker.

dlls/ole32/moniker.c

@@ -522,3 +522,14 @@ HRESULT WINAPI MkParseDisplayName(LPBC pbc, LPCOLESTR szUserName,
 
     return MK_E_SYNTAX;
 }
+
+/******************************************************************************
+ *              CreateClassMoniker        [OLE32.*]
+ */
+ HRESULT WINAPI CreateClassMoniker(REFCLSID rclsid, IMoniker ** ppmk)
+ {
+     FIXME("%s\n", debugstr_guid( rclsid ));
+     if( ppmk )
+         *ppmk = NULL;
+     return E_NOTIMPL;
+ }

dlls/ole32/ole32.spec

@@ -174,7 +174,7 @@
 174 stub CoRevertToSelf             # stdcall () return 0,ERR_NOTIMPLEMENTED
 175 stub CoSetProxyBlanket          # stdcall (ptr long long wstr long long ptr long) return 0,ERR_NOTIMPLEMENTED
 176 stub CoSuspendClassObjects      # stdcall () return 0,ERR_NOTIMPLEMENTED
-177 stub CreateClassMoniker         # stdcall (ptr ptr) return 0,ERR_NOTIMPLEMENTED
+177 stdcall CreateClassMoniker(ptr ptr)
 178 stub CLIPFORMAT_UserFree
 179 stub CLIPFORMAT_UserMarshal
 180 stub CLIPFORMAT_UserSize