Implemented OleRun.

dlls/ole32/moniker.c

@@ -473,3 +473,20 @@ HRESULT WINAPI GetRunningObjectTable(DWORD reserved, LPRUNNINGOBJECTTABLE *pprot
 
     return res;
 }
+
+/******************************************************************************
+ *              OleRun        [OLE32.123]
+ */
+HRESULT WINAPI OleRun(LPUNKNOWN pUnknown)
+{
+  IRunnableObject	*runable;
+  ICOM_THIS(IRunnableObject,pUnknown);
+  LRESULT		ret;
+
+  ret = IRunnableObject_QueryInterface(This,&IID_IRunnableObject,(LPVOID*)&runable);
+  if (ret) 
+	return 0; /* Appears to return no error. */
+  ret  = IRunnableObject_Run(runable,NULL);
+  IRunnableObject_Release(runable);
+  return ret;
+}

dlls/ole32/ole2stubs.c

@@ -172,15 +172,6 @@ HRESULT     WINAPI OleCreateStaticFromData(LPDATAOBJECT pSrcDataObj, REFIID iid,
 }
 
 /******************************************************************************
- *              OleRun        [OLE32.123]
- */
-HRESULT WINAPI OleRun(LPUNKNOWN pUnknown)
-{
-  FIXME("(%p), stub!\n", pUnknown);
-  return S_OK;
-}
-
-/******************************************************************************
  *              OleCreateLinkFromData        [OLE32.95]
  */