ole32: Add a stub implementation of CreatePointerMoniker.

dlls/ole32/moniker.c

@@ -1677,3 +1677,27 @@ void __RPC_USER MIDL_user_free(void *p)
 {
     HeapFree(GetProcessHeap(), 0, p);
 }
+
+/***********************************************************************
+ *           CreatePointerMoniker (OLE32.@)
+ *
+ * Creates a moniker which represents a pointer.
+ *
+ * PARAMS
+ *  punk [I] Pointer to the object to represent.
+ *  ppmk [O] Address that receives the pointer to the created moniker.
+ *
+ * RETURNS
+ *  Success: S_OK.
+ *  Failure: Any HRESULT code.
+ */
+HRESULT WINAPI CreatePointerMoniker(LPUNKNOWN punk, LPMONIKER *ppmk)
+{
+    FIXME("(%p, %p): stub\n", punk, ppmk);
+
+    if (!ppmk)
+        return E_INVALIDARG;
+
+    *ppmk = NULL;
+    return E_NOTIMPL;
+}

dlls/ole32/ole32.spec

@@ -92,7 +92,7 @@
 @ stdcall CreateItemMoniker(wstr wstr ptr)
 @ stub CreateObjrefMoniker
 @ stdcall CreateOleAdviseHolder(ptr)
-@ stub CreatePointerMoniker       #@ stdcall (ptr ptr) return 0,ERR_NOTIMPLEMENTED
+@ stdcall CreatePointerMoniker(ptr ptr)
 @ stdcall CreateStreamOnHGlobal(ptr long ptr)
 @ stdcall DllDebugObjectRPCHook(long ptr)
 @ stdcall -private DllGetClassObject (ptr ptr ptr)