Stub for CoCreateGuid().

ole/compobj.c

@@ -218,6 +218,15 @@ OLESTATUS WINAPI CLSIDFromString16(
 }
 
 /******************************************************************************
+ *		CoCreateGuid[OLE32.6]
+ * Just a random 128-bit number?
+ */
+HRESULT WINAPI CoCreateGuid(GUID *pguid) {
+	FIXME(ole,"stub!\n");
+	return S_OK;
+}
+
+/******************************************************************************
  *		CLSIDFromString32	[OLE32.3]
  * Converts a unique identifier from it's string representation into 
  * the GUID struct.

relay32/ole32.spec

@@ -6,7 +6,7 @@ type	win32
   3 stdcall CLSIDFromString(wstr ptr) CLSIDFromString32
   4 stdcall CoBuildVersion() CoBuildVersion
   5 stub CoCreateFreeThreadedMarshaler
-  6 stub CoCreateGuid
+  6 stdcall CoCreateGuid(ptr) CoCreateGuid
   7 stdcall CoCreateInstance(ptr ptr long ptr ptr) CoCreateInstance
   8 stdcall CoDisconnectObject(ptr long) CoDisconnectObject
   9 stdcall CoDosDateTimeToFileTime(long long ptr) DosDateTimeToFileTime