From: Alistair Leslie-Hughes Subject: oleaut32: Implement CreateTypeLib Message-Id: <55E66B37.2030006@hotmail.com> Date: Wed, 2 Sep 2015 13:21:27 +1000 Hi, Fixes https://bugs.winehq.org/show_bug.cgi?id=8780 Changelog: oleaut32: Implement CreateTypeLib Best Regards Alistair Leslie-Hughes From 805595f3b02b2fe4de282c95060a9765a3c84002 Mon Sep 17 00:00:00 2001 From: Alistair Leslie-Hughes Date: Wed, 2 Sep 2015 13:09:34 +1000 Subject: [PATCH 4/4] oleaut32: Implement CreateTypeLib --- dlls/oleaut32/typelib.c | 20 +++++++++++++++----- 1 file changed, 15 insertions(+), 5 deletions(-) diff --git a/dlls/oleaut32/typelib.c b/dlls/oleaut32/typelib.c index 29bab33..f9d7f80 100644 --- a/dlls/oleaut32/typelib.c +++ b/dlls/oleaut32/typelib.c @@ -424,11 +424,21 @@ HRESULT WINAPI QueryPathOfRegTypeLib( REFGUID guid, WORD wMaj, WORD wMin, LCID l * Success: S_OK * Failure: Status */ -HRESULT WINAPI CreateTypeLib( - SYSKIND syskind, LPCOLESTR szFile, ICreateTypeLib** ppctlib -) { - FIXME("(%d,%s,%p), stub!\n",syskind,debugstr_w(szFile),ppctlib); - return E_FAIL; +HRESULT WINAPI CreateTypeLib(SYSKIND syskind, LPCOLESTR szFile, ICreateTypeLib** ppctlib) +{ + HRESULT hres; + ICreateTypeLib2 *typelib2; + + TRACE("(%d, %s, %p)\n", syskind, debugstr_w(szFile), ppctlib); + + hres = CreateTypeLib2(syskind, szFile, &typelib2); + if(SUCCEEDED(hres)) + { + hres = ICreateTypeLib2_QueryInterface(typelib2, &IID_ICreateTypeLib, (void**)&ppctlib); + ICreateTypeLib2_Release(typelib2); + } + + return hres; } /****************************************************************************** -- 2.1.4