4 * Copyright 1997 Marcus Meissner
5 * Copyright 1999 Rein Klazes
6 * Copyright 2000 Francois Jacques
7 * Copyright 2001 Huw D M Davies for CodeWeavers
9 * This library is free software; you can redistribute it and/or
10 * modify it under the terms of the GNU Lesser General Public
11 * License as published by the Free Software Foundation; either
12 * version 2.1 of the License, or (at your option) any later version.
14 * This library is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 * Lesser General Public License for more details.
19 * You should have received a copy of the GNU Lesser General Public
20 * License along with this library; if not, write to the Free Software
21 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
25 #include "wine/port.h"
43 #include "wine/debug.h"
45 WINE_DEFAULT_DEBUG_CHANNEL(ole
);
47 /*************************************************************************
50 * This dll is the 16 bit version of the Typelib API, part the original
51 * implementation of Ole automation. It and its companion ole2disp.dll were
52 * superseded by oleaut32.dll which provides 32 bit implementations of these
53 * functions and greatly extends the Ole Api.
55 * Winelib developers cannot use these functions directly, they are implemented
56 * solely for backwards compatibility with existing legacy applications.
59 * oleaut32(), ole2disp().
62 /****************************************************************************
63 * QueryPathOfRegTypeLib [TYPELIB.14]
65 * Get the registry key of a registered type library.
68 * Success: S_OK. path is updated with the key name
69 * Failure: E_FAIL, if guid was not found in the registry
72 * The key takes the form "Classes\Typelib\<guid>\<major>.<minor>\<lcid>\win16\"
75 QueryPathOfRegTypeLib16(
76 REFGUID guid
, /* [in] Guid to get the key name for */
77 WORD wMaj
, /* [in] Major version */
78 WORD wMin
, /* [in] Minor version */
79 LCID lcid
, /* [in] Locale Id */
80 LPBSTR16 path
) /* [out] Destination for the registry key name */
83 char typelibkey
[100],pathname
[260];
89 sprintf( typelibkey
, "SOFTWARE\\Classes\\Typelib\\{%08lx-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x}\\%d.%d\\%lx\\win16",
90 guid
->Data1
, guid
->Data2
, guid
->Data3
,
91 guid
->Data4
[0], guid
->Data4
[1], guid
->Data4
[2], guid
->Data4
[3],
92 guid
->Data4
[4], guid
->Data4
[5], guid
->Data4
[6], guid
->Data4
[7],
95 sprintf(xguid
,"<guid 0x%08lx>",(DWORD
)guid
);
96 FIXME("(%s,%d,%d,0x%04lx,%p),can't handle non-string guids.\n",xguid
,wMaj
,wMin
,(DWORD
)lcid
,path
);
99 plen
= sizeof(pathname
);
100 if (RegQueryValueA(HKEY_LOCAL_MACHINE
,typelibkey
,pathname
,&plen
)) {
101 /* try again without lang specific id */
103 return QueryPathOfRegTypeLib16(guid
,wMaj
,wMin
,PRIMARYLANGID(lcid
),path
);
104 FIXME("key %s not found\n",typelibkey
);
107 *path
= SysAllocString16(pathname
);
111 /******************************************************************************
112 * LoadTypeLib [TYPELIB.3]
114 * Load and register a type library.
117 * Success: S_OK. pptLib contains the type libraries ITypeLib interface.
118 * Failure: An HRESULT error code.
121 * Both parameters are FAR pointers.
123 HRESULT WINAPI
LoadTypeLib16(
124 LPOLESTR szFile
, /* [in] Name of file to load from */
125 ITypeLib
** pptLib
) /* [out] Destination for loaded ITypeLib interface */
127 FIXME("(%s,%p): stub\n",debugstr_w((LPWSTR
)szFile
),pptLib
);
135 /****************************************************************************
136 * OaBuildVersion (TYPELIB.15)
138 * Get the Ole Automation build version.
147 * Known typelib.dll versions:
148 *| OLE Ver. Comments Date Build Ver.
149 *| -------- ------------------------- ---- ---------
150 *| OLE 2.01 Call not available 1993 N/A
151 *| OLE 2.02 1993-94 02 3002
154 *| OLE 2.03 W98 SE orig. file !! 1993-95 10 3024
155 *| OLE 2.1 NT 1993-95 ?? ???
156 *| OLE 2.3.1 W95 23 700
157 *| OLE2 4.0 NT4SP6 1993-98 40 4277
159 DWORD WINAPI
OaBuildVersion16(void)
161 /* FIXME: I'd like to return the highest currently known version value
162 * in case the user didn't force a --winver, but I don't know how
163 * to retrieve the "versionForced" info from misc/version.c :(
164 * (this would be useful in other places, too) */
165 FIXME("If you get version error messages, please report them\n");
166 switch(GetVersion() & 0x8000ffff) /* mask off build number */
168 case 0x80000a03: /* WIN31 */
169 return MAKELONG(3027, 3); /* WfW 3.11 */
170 case 0x80000004: /* WIN95 */
171 return MAKELONG(700, 23); /* Win95A */
172 case 0x80000a04: /* WIN98 */
173 return MAKELONG(3024, 10); /* W98 SE */
174 case 0x00000004: /* NT4 */
175 return MAKELONG(4277, 40); /* NT4 SP6 */
177 FIXME("Version value not known yet. Please investigate it!\n");