ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Small hack to make InstallShield v6 work better.

This commit is contained in:
Marcus Meissner 2002-05-06 20:12:32 +00:00 committed by Alexandre Julliard
parent 5b63cc22e8
commit 87ecfab4ec
1 changed files with 28 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
dlls/oleaut32/typelib.c
View File

@ -468,10 +468,36 @@ HRESULT WINAPI RegisterTypeLib(
TYPEATTR *tattr = NULL; TYPEATTR *tattr = NULL;
ITypeInfo_GetTypeAttr(tinfo, &tattr); ITypeInfo_GetTypeAttr(tinfo, &tattr);
if (tattr) { if (tattr) {
TRACE_(typelib)("guid=%s, flags=%04x\n", TRACE_(typelib)("guid=%s, flags=%04x (",
debugstr_guid(&tattr->guid), debugstr_guid(&tattr->guid),
tattr->wTypeFlags); tattr->wTypeFlags);
if (tattr->wTypeFlags & TYPEFLAG_FOLEAUTOMATION) { if (TRACE_ON(typelib)) {
#define XX(x) if (TYPEFLAG_##x & tattr->wTypeFlags) MESSAGE(#x"|");
XX(FAPPOBJECT);
XX(FCANCREATE);
XX(FLICENSED);
XX(FPREDECLID);
XX(FHIDDEN);
XX(FCONTROL);
XX(FDUAL);
XX(FNONEXTENSIBLE);
XX(FOLEAUTOMATION);
XX(FRESTRICTED);
XX(FAGGREGATABLE);
XX(FREPLACEABLE);
XX(FDISPATCHABLE);
XX(FREVERSEBIND);
XX(FPROXY);
#undef XX
MESSAGE("\n");
}
/*
* FIXME: The 1 is just here until we implement rpcrt4
* stub/proxy handling. Until then it helps IShield
* v6 to work.
*/
if (1 || (tattr->wTypeFlags & TYPEFLAG_FOLEAUTOMATION))
{
/* register interface<->typelib coupling */ /* register interface<->typelib coupling */
StringFromGUID2(&tattr->guid, guid, 80); StringFromGUID2(&tattr->guid, guid, 80);
guidA = HEAP_strdupWtoA(GetProcessHeap(), 0, guid); guidA = HEAP_strdupWtoA(GetProcessHeap(), 0, guid);