source: Include/OAIdl.ab@ 89

' OAIdl.sbp
' 本来はOAIdl.idlから生成するのが正当ですが、
' これは手動で必要最低限のもののみ移植したものです。

#ifndef _INC_OAIDL_AB
#define _INC_OAIDL_AB

'#ifndef COM_NO_WINDOWS_H
#include <windows.sbp>
#include <ole2.ab>
'#endif /*COM_NO_WINDOWS_H*/

#include <objidl.sbp>

#ifndef __IOleAutomationTypes_INTERFACE_DEFINED__
#define __IOleAutomationTypes_INTERFACE_DEFINED__

TypeDef VARTYPE = Word ' WTypes.ab
TypeDef VARIANT_BOOL = Integer ' WTypes.ab
Const VARIANT_TRUE = (-1 As VARIANT_BOOL) ' WTypes.ab
Const VARIANT_FALSE = (0 As VARIANT_BOOL) ' WTypes.ab
TypeDef SCODE = Long
Class CY ' WTypes.ab
Public
    int64 As Int64

    Function Lo() As DWord
        Return GetDWord(VarPtr(int64))
    End Function

    Sub Lo(lo As DWord)
        SetDWord(VarPtr(int64), lo)
    End Sub

    Function Hi() As Long
        Return GetDWord(VarPtr(int64) + SizeOf (DWord)) As Long
    End Function

    Sub Lo(lo As Long)
        SetDWord(VarPtr(int64) + SizeOf (DWord, lo As DWord))
    End Sub
End Class

Class DECIMAL ' WTypes.ab
Public
    wReserved As Word
    signscale As Word
    Hi32 As DWord
    Lo64 As QWord

    Function scale() As Byte
        Return GetByte(VarPtr(signscale))
    End Function

    Sub scale(s As Byte)
        SetByte(VarPtr(signscale), s)
    End Sub

    Function sign() As Byte
        Return GetByte(VarPtr(signscale) + SizeOf (Byte))
    End Function

    Sub sign(s As Byte)
        SetByte(VarPtr(signscale) + SizeOf (Byte), s)
    End Sub

    Function Lo32() As DWord
        Return GetDWord(VarPtr(Lo64) As *DWord)
    End Function

    Sub Lo32(l As DWord)
        SetDWord(VarPtr(Lo64) As *DWord, l)
    End Sub


    Function Mid32() As DWord
        Return GetDWord(VarPtr(Lo64) As *DWord)
    End Function

    Sub Mid32(m As DWord)
        SetDWord(VarPtr(Lo64) As *DWord + SizeOf (DWord), m)
    End Sub
End Class

TypeDef DATE = Double ' WTypes.ab

Interface IRecordInfo
    Inherits IUnknown
End Interface


/* interface IOleAutomationTypes */
/* [auto_handle][unique][version] */

TypeDef CURRENCY = CY

Type SAFEARRAYBOUND
    cElements As DWord
    lLbound As Long
End Type

Typedef LPSAFEARRAYBOUND = *SAFEARRAYBOUND

Typedef wireVARIANT = VoidPtr '/* [unique] */ *_wireVARIANT

Typedef wireBRECORD = VoidPtr '/* [unique] */ *_wireBRECORD

' Type SAFEARR_BSTR;
' Type SAFEARR_UNKNOWN;
' Type SAFEARR_DISPATCH;
' Type SAFEARR_VARIANT;
' Type SAFEARR_BRECORD;
' Type SAFEARR_HAVEIID;

/* [v1_enum] */
/*
Const Enum SF_TYPE
    SF_ERROR = VT_ERROR
    SF_I1 = VT_I1
    SF_I2 = VT_I2
    SF_I4 = VT_I4
    SF_I8 = VT_I8
    SF_BSTR = VT_BSTR
    SF_UNKNOWN = VT_UNKNOWN
    SF_DISPATCH = VT_DISPATCH
    SF_VARIANT = VT_VARIANT
    SF_RECORD = VT_RECORD
    SF_HAVEIID = VT_UNKNOWN Or VT_RESERVED
End Enum
*/
' Type SAFEARRAYUNION

' Type /* [unique] */ wireSAFEARRAY

TypeDef wirePSAFEARRAY = VoidPtr '/* [unique] */ *wireSAFEARRAY

Type SAFEARRAY
    cDims As Word
    fFeatures As Word
    cbElements As DWord
    cLocks As DWord
    pvData As VoidPtr
    rgsabound[ELM(1)] As SAFEARRAYBOUND
End Type

TypeDef LPSAFEARRAY = /* [wire_marshal] */ *SAFEARRAY

Const FADF_AUTO = &h1
Const FADF_STATIC = &h2
Const FADF_EMBEDDED = &h4
Const FADF_FIXEDSIZE = &h10
Const FADF_RECORD = &h20
Const FADF_HAVEIID = &h40
Const FADF_HAVEVARTYPE = &h80
Const FADF_BSTR = &h100
Const FADF_UNKNOWN = &h200
Const FADF_DISPATCH = &h400
Const FADF_VARIANT = &h800
Const FADF_RESERVED = &hf008

Const Enum VARENUM 'WTypes.idl
    VT_EMPTY    = 0
    VT_NULL = 1
    VT_I2   = 2
    VT_I4   = 3
    VT_R4   = 4
    VT_R8   = 5
    VT_CY   = 6
    VT_DATE = 7
    VT_BSTR = 8
    VT_DISPATCH = 9
    VT_ERROR    = 10
    VT_BOOL = 11
    VT_VARIANT  = 12
    VT_UNKNOWN  = 13
    VT_DECIMAL  = 14
    VT_I1   = 16
    VT_UI1  = 17
    VT_UI2  = 18
    VT_UI4  = 19
    VT_I8   = 20
    VT_UI8  = 21
    VT_INT  = 22
    VT_UINT = 23
    VT_VOID = 24
    VT_HRESULT  = 25
    VT_PTR  = 26
    VT_SAFEARRAY    = 27
    VT_CARRAY   = 28
    VT_USERDEFINED  = 29
    VT_LPSTR    = 30
    VT_LPWSTR   = 31
    VT_RECORD   = 36
    VT_INT_PTR  = 37
    VT_UINT_PTR = 38
    VT_FILETIME = 64
    VT_BLOB = 65
    VT_STREAM   = 66
    VT_STORAGE  = 67
    VT_STREAMED_OBJECT  = 68
    VT_STORED_OBJECT    = 69
    VT_BLOB_OBJECT  = 70
    VT_CF   = 71
    VT_CLSID    = 72
    VT_VERSIONED_STREAM = 73
    VT_BSTR_BLOB    = &hfff
    VT_VECTOR   = &h1000
    VT_ARRAY    = &h2000
    VT_BYREF    = &h4000
    VT_RESERVED = &h8000
    VT_ILLEGAL  = &hffff
    VT_ILLEGALMASKED    = &hfff
    VT_TYPEMASK = &hfff
End Enum

Class VARIANT
Public
    vt As VARTYPE
    wReserved1 As Word
    wReserved2 As Word
    wReserved3 As Word
    val As QWord

    Function llVal() As Int64
        Return val As Int64
    End Function

    Sub llVal(v As Int64)
        val = v As QWord
    End Sub

    Function lVal() As Long
        Return val As DWord As Long
    End Function

    Sub lVal(v As Long)
        val = v As DWord
    End Sub

    Function bVal() As Byte
        Return val As Byte
    End Function

    Sub bVal(v As Byte)
        val = v
    End Sub

    Function iVal() As Integer
        Return val As Word As Integer
    End Function

    Sub iVal(v As Integer)
        val = v As Word
    End Sub

    Function fltVal() As Single
        Return GetSingle(VarPtr(val) As *Single)
    End Function

    Sub fltVal(v As Single)
        SetSingle(VarPtr(val) As *Single, v)
    End Sub

    Function dblVal() As Double
        Return GetDouble(VarPtr(val) As *Double)
    End Function

    Sub dblVal(v As Double)
        SetDouble(VarPtr(val) As *Double, v)
    End Sub

    ' SizeOf (VARIANT_BOOL) = 2
    Function boolVal() As VARIANT_BOOL
        Return val As Word As VARIANT_BOOL
    End Function

    Sub boolVal(v As VARIANT_BOOL)
        val = v As Word
    End Sub

    ' SizeOf (SCODE) = 4
    Function scode() As SCODE
        Return val As DWord As SCODE
    End Function

    Sub scode(v As SCODE)
        val = v As DWord
    End Sub

    ' SizeOf (CY) = 8
    Function cyVal() As CY
        SetQWord(VarPtr(cyVal), val)
    End Function

    Sub cyVal(v As CY)
        SetQWord(VarPtr(val), GetQWord(VarPtr(v)))
    End Sub

    ' SizeOf (DATE) = 8
    Function date() As DATE
        SetQWord(VarPtr(date), val)
    End Function

    Sub date(v As DATE)
        SetQWord(VarPtr(val), GetQWord(VarPtr(v)))
    End Sub

    Function bstrVal() As BSTR
        Return val As ULONG_PTR As BSTR
    End Function

    Sub bstrVal(v As BSTR)
        val = v As ULONG_PTR
    End Sub

    Function punkVal() As *IUnknown
        Return val As ULONG_PTR As *IUnknown
    End Function

    Sub punkVal(v As *IUnknown)
        val = v As ULONG_PTR
    End Sub

    Function pdispVal() As *IDispatch
        Return val As ULONG_PTR As *IDispatch
    End Function

    Sub pdispVal(v As *IDispatch)
        val = v As ULONG_PTR
    End Sub

    Function parray() As *SAFEARRAY
        Return val As ULONG_PTR As *SAFEARRAY
    End Function

    Sub parray(v As *SAFEARRAY)
        val = v As ULONG_PTR
    End Sub

    Function pbVal() As *Byte
        Return val As ULONG_PTR As *Byte
    End Function

    Sub pbVal(v As *Byte)
        val = v As ULONG_PTR
    End Sub

    Function piVal() As *Integer
        Return val As ULONG_PTR As *Integer
    End Function

    Sub piVal(v As *Integer)
        val = v As ULONG_PTR
    End Sub

    Function plVal() As *Long
        Return val As ULONG_PTR As *Long
    End Function

    Sub plVal(v As *Long)
        val = v As ULONG_PTR
    End Sub

    Function pllVal() As *Int64
        Return val As ULONG_PTR As *Int64
    End Function

    Sub pllVal(v As *Int64)
        val = v As ULONG_PTR
    End Sub

    Function pfltVal() As *Single
        Return val As ULONG_PTR As *Single
    End Function

    Sub pfltVal(v As *Single)
        val = v As ULONG_PTR
    End Sub

    Function pdblVal() As *Double
        Return val As ULONG_PTR As *Double
    End Function

    Sub pdblVal(v As *Double)
        val = v As ULONG_PTR
    End Sub

    Function pboolVal() As *VARIANT_BOOL
        Return val As ULONG_PTR As *VARIANT_BOOL
    End Function

    Sub pboolVal(v As *VARIANT_BOOL)
        val = v As ULONG_PTR
    End Sub

    Function pscode() As *SCODE
        Return val As ULONG_PTR As *SCODE
    End Function

    Sub pscode(v As *SCODE)
        val = v As ULONG_PTR
    End Sub

    Function pcyVal() As *CY
        Return val As ULONG_PTR As *CY
    End Function

    Sub pcyVal(v As *CY)
        val = v As ULONG_PTR
    End Sub

    Function pdate() As *DATE
        Return val As ULONG_PTR As *DATE
    End Function

    Sub pdate(v As *DATE)
        val = v As ULONG_PTR
    End Sub

    Function pbstrVal() As *BSTR
        Return val As ULONG_PTR As *BSTR
    End Function

    Sub pbstrVal(v As *BSTR)
        val = v As ULONG_PTR
    End Sub

    Function ppunkVal() As **IUnknown
        Return val As ULONG_PTR As **IUnknown
    End Function

    Sub ppunkVal(v As **IUnknown)
        val = v As ULONG_PTR
    End Sub

    Function ppdispVal() As **IDispatch
        Return val As ULONG_PTR As **IDispatch
    End Function

    Sub ppdispVal(v As **IDispatch)
        val = v As ULONG_PTR
    End Sub

    Function pparray() As **SAFEARRAY
        Return val As ULONG_PTR As **SAFEARRAY
    End Function

    Sub pparray(v As **SAFEARRAY)
        val = v As ULONG_PTR
    End Sub

    Function pvarVal() As *VARIANT
        Return val As ULONG_PTR As *VARIANT
    End Function

    Sub pvarVal(v As *VARIANT)
        val = v As ULONG_PTR
    End Sub
/*
    Function byref() As VoidPtr
        Return val As ULONG_PTR As VoidPtr
    End Function

    Sub byref(v As VoidPtr)
        val = v As ULONG_PTR
    End Sub
*/
    Function cVal() As Char
        Return val As Byte As Char
    End Function

    Sub cVal(v As Char)
        val = v As Byte
    End Sub

    Function uiVal() As Word
        Return val As Word
    End Function

    Sub uiVal(v As Word)
        val = v
    End Sub

    Function ulVal() As DWord
        Return val As DWord
    End Function

    Sub ulVal(v As DWord)
        val = v
    End Sub

    Function ullVal() As QWord
        Return val
    End Function

    Sub ullVal(v As QWord)
        val = v
    End Sub

    Function intVal() As Long
        Return val As DWord As Long
    End Function

    Sub intVal(v As Long)
        val = v As DWord
    End Sub

    Function uintVal() As DWord
        Return val As DWord
    End Function

    Sub uintVal(v As DWord)
        val = v
    End Sub

    Function pdecVal() As *DECIMAL
        Return val As ULONG_PTR As *DECIMAL
    End Function

    Sub pdecVal(v As *DECIMAL)
        val = v As ULONG_PTR
    End Sub

    Function pcVal() As *Char
        Return val As ULONG_PTR As *Char
    End Function

    Sub pcVal(v As *Char)
        val = v As ULONG_PTR
    End Sub

    Function puiVal() As *Word
        Return val As ULONG_PTR As *Word
    End Function

    Sub puiVal(v As *Word)
        val = v As ULONG_PTR
    End Sub

    Function pulVal() As *DWord
        Return val As ULONG_PTR As *DWord
    End Function

    Sub pulVal(v As *DWord)
        val = v As ULONG_PTR
    End Sub

    Function pullVal() As *QWord
        Return val As ULONG_PTR As *QWord
    End Function

    Sub pullVal(v As *QWord)
        val = v As ULONG_PTR
    End Sub

    Function pintVal() As *Long
        Return val As ULONG_PTR As *Long
    End Function

    Sub pintVal(v As *Long)
        val = v As ULONG_PTR
    End Sub

    Function puintVal() As *DWord
        Return val As ULONG_PTR As *DWord
    End Function

    Sub puintVal(v As *DWord)
        val = v As ULONG_PTR
    End Sub

    Function pvRecord() As VoidPtr
        Return val As ULONG_PTR As VoidPtr
    End Function

    Sub pvRecord(v As VoidPtr)
        val = v As ULONG_PTR
    End Sub

    Function pRecInfo() As *IRecordInfo
        Return (val As ULONG_PTR + SizeOf (VoidPtr)) As *IRecordInfo
    End Function

    Sub pRecInfo(v As *IRecordInfo)
        Set_LONG_PTR((VarPtr(val) As ULONG_PTR + SizeOf (VoidPtr)) As VoidPtr, v As LONG_PTR)
    End Sub

    Function decVal() As DECIMAL
        Dim p As *DECIMAL
        p = VarPtr(This) As *DECIMAL
        Return p[0]
    End Function

    Sub decVal(v As DECIMAL)
        Dim p As *DECIMAL
        p = VarPtr(This) As *DECIMAL
        p[0] = v
    End Sub
End Class

TypeDef LPVARIANT = *VARIANT
TypeDef VARIANTARG = VARIANT
TypeDef LPVARIANTARG =* VARIANT

' Type _wireBRECORD
' Type _wireVARIANT

TypeDef DISPID = Long

TypeDef MEMBERID = DISPID

TypeDef HREFTYPE = DWord

/* [v1_enum] */
Const Enum TYPEKIND
    TKIND_ENUM ' = 0
    TKIND_RECORD ' = TKIND_ENUM + 1
    TKIND_MODULE ' = TKIND_RECORD + 1
    TKIND_INTERFACE ' = TKIND_MODULE + 1
    TKIND_DISPATCH ' = TKIND_INTERFACE + 1
    TKIND_COCLASS ' = TKIND_DISPATCH + 1
    TKIND_ALIAS ' = TKIND_COCLASS + 1
    TKIND_UNION ' = TKIND_ALIAS + 1
    TKIND_MAX ' = TKIND_UNION + 1
End Enum

Class TYPEDESC
Private
    p As VoidPtr
'   /* [switch_is][switch_type] */ Union
'       /* [case()] */ lptdesc As *TYPEDESC
'       /* [case()] */ lpadesc As *ARRAYDESC
'       /* [case()] */ hreftype As HREFTYPE
'       /* [default] */  /* Empty union arm */
'   End Union
Public
    vt As VARTYPE

    Function lptdesc() As *TYPEDESC
        Return p
    End Function

    Sub lptdesc(ptd As *TYPEDESC)
        p = ptd
    End Sub

    Function lpadesc() As *ARRAYDESC
        Return p
    End Function

    Sub lpadesc(pad As *ARRAYDESC)
        p = pad
    End Sub

    Function hreftype() As *HREFTYPE
        Return p
    End Function

    Sub hreftype(prd As *HREFTYPE)
        p = prd
    End Sub
End Class

Type ARRAYDESC
    tdescElem As TYPEDESC
    cDims As Word
    /* [size_is] */ rgbounds[ELM(1)] As SAFEARRAYBOUND
End Type

Type PARAMDESCEX
    cBytes As DWord
    varDefaultValue As VARIANTARG
End Type

Typedef LPPARAMDESCEX = *PARAMDESCEX

Type PARAMDESC
    pparamdescex As LPPARAMDESCEX
    USHORT wParamFlags As Word
End Type

TypeDef LPPARAMDESC = *PARAMDESC

Const PARAMFLAG_NONE = 0
Const PARAMFLAG_FIN = &h1
Const PARAMFLAG_FOUT = &h2
Const PARAMFLAG_FLCID = &h4
Const PARAMFLAG_FRETVAL = &h8
Const PARAMFLAG_FOPT = &h10
Const PARAMFLAG_FHASDEFAULT = &h20
Const PARAMFLAG_FHASCUSTDATA = &h40

Type IDLDESC
    dwReserved As ULONG_PTR
    wIDLFlags As Word
End Type

TypeDef LPIDLDESC = *IDLDESC

Const IDLFLAG_NONE = PARAMFLAG_NONE
Const IDLFLAG_FIN = PARAMFLAG_FIN
Const IDLFLAG_FOUT = PARAMFLAG_FOUT
Const IDLFLAG_FLCID = PARAMFLAG_FLCID
Const IDLFLAG_FRETVAL = PARAMFLAG_FRETVAL

Class ELEMDESC
Public
    tdesc As TYPEDESC
    idldesc As IDLDESC

    Function paramdesc() As PARAMDESC
        Dim p As *PARAMDESC
        p = VarPtr(idldesc) As *PARAMDESC
        Return p[0]
    End Function

    Sub paramdesc(pd As PARAMDESC)
        Dim p As *PARAMDESC
        p = VarPtr(idldesc) As *PARAMDESC
        p[0] = pd
    End Sub
End Class

Type TYPEATTR
    guid As GUID
    lcid As LCID
    dwReserved As DWord
    memidConstructor As MEMBERID
    memidDestructor As MEMBERID
    lpstrSchema As LPOLESTR
    cbSizeInstance As DWord
    typekind As TYPEKIND
    cFuncs As Word
    cVars As Word
    cImplTypes As Word
    cbSizeVft As Word
    cbAlignment As Word
    wTypeFlags As Word
    wMajorVerNum As Word
    wMinorVerNum As Word
    tdescAlias As TYPEDESC
    idldescType As IDLDESC
End Type

TypeDef LPTYPEATTR = *TYPEATTR

Type DISPPARAMS
    /* [size_is] */ rgvarg As *VARIANTARG
    /* [size_is] */ rgdispidNamedArgs As *DISPID
    cArgs As DWord
    cNamedArgs As DWord
End Type

Type EXCEPINFO
    wCode As Word
    wReserved As Word
    bstrSource As BSTR
    bstrDescription As BSTR
    bstrHelpFile As BSTR
    dwHelpContext As DWord
    pvReserved As VoidPtr
    pfnDeferredFillIn = *Function(p As *EXCEPINFO) As HRESULT
    scode As SCODE
End Type

TypeDef LPEXCEPINFO = *EXCEPINFO

/* [v1_enum] */
Const Enum CALLCONV
    CC_FASTCALL = 0
    CC_CDECL    = 1
    CC_MSCPASCAL    = CC_CDECL + 1
    CC_PASCAL   = CC_MSCPASCAL
    CC_MACPASCAL    = CC_PASCAL + 1
    CC_STDCALL  = CC_MACPASCAL + 1
    CC_FPFASTCALL   = CC_STDCALL + 1
    CC_SYSCALL  = CC_FPFASTCALL + 1
    CC_MPWCDECL = CC_SYSCALL + 1
    CC_MPWPASCAL    = CC_MPWCDECL + 1
    CC_MAX  = CC_MPWPASCAL + 1
End Enum

/* [v1_enum] */
Const Enum FUNCKIND
    FUNC_VIRTUAL = 0
    FUNC_PUREVIRTUAL = FUNC_VIRTUAL + 1
    FUNC_NONVIRTUAL = FUNC_PUREVIRTUAL + 1
    FUNC_STATIC = FUNC_NONVIRTUAL + 1
    FUNC_DISPATCH = FUNC_STATIC + 1
End Enum

/* [v1_enum] */
Const Enum INVOKEKIND
    INVOKE_FUNC = 1
    INVOKE_PROPERTYGET = 2
    INVOKE_PROPERTYPUT = 4
    INVOKE_PROPERTYPUTREF = 8
End Enum

Type FUNCDESC
    memid As MEMBERID
    /* [size_is] */ lprgscode As *SCODE
    /* [size_is] */ lprgelemdescParam As *ELEMDESC
    funckind As FUNCKIND
    invkind As INVOKEKIND
    callconv As CALLCONV
    cParams As Integer
    cParamsOpt As Integer
    oVft As Integer
    cScodes As Integer
    elemdescFunc As ELEMDESC
    wFuncFlags As Word
End Type

TypeDef LPFUNCDESC = *FUNCDESC

/* [v1_enum] */
Const Enum VARKIND
    VAR_PERINSTANCE = 0
    VAR_STATIC = VAR_PERINSTANCE + 1
    VAR_CONST = VAR_STATIC + 1
    VAR_DISPATCH = VAR_CONST + 1
End Enum

Const IMPLTYPEFLAG_FDEFAULT = &h1
Const IMPLTYPEFLAG_FSOURCE = &h2
Const IMPLTYPEFLAG_FRESTRICTED = &h4
Const IMPLTYPEFLAG_FDEFAULTVTABLE = &h8

Class VARDESC
Public
    memid As MEMBERID
    lpstrSchema As LPOLESTR
'   /* [switch_is][switch_type] */ Union
'       /* [case()] */ oInst As DWord
        /* [case()] */ lpvarValue As *VARIANT
'   End Union
    elemdescVar As ELEMDESC
    wVarFlags As Word
    varkind As VARKIND

    Function oInst() As DWord
        Return lpvarValue As ULONG_PTR As DWord
    End Function

    Sub oInst(o As DWord)
        lpvarValue = o As ULONG_PTR As *VARIANT
    End Sub
End Class

TypeDef LPVARDESC = VARDESC

Const Enum TYPEFLAGS
    TYPEFLAG_FAPPOBJECT = &h1
    TYPEFLAG_FCANCREATE = &h2
    TYPEFLAG_FLICENSED = &h4
    TYPEFLAG_FPREDECLID = &h8
    TYPEFLAG_FHIDDEN = &h10
    TYPEFLAG_FCONTROL = &h20
    TYPEFLAG_FDUAL = &h40
    TYPEFLAG_FNONEXTENSIBLE = &h80
    TYPEFLAG_FOLEAUTOMATION = &h100
    TYPEFLAG_FRESTRICTED = &h200
    TYPEFLAG_FAGGREGATABLE = &h400
    TYPEFLAG_FREPLACEABLE = &h800
    TYPEFLAG_FDISPATCHABLE = &h1000
    TYPEFLAG_FREVERSEBIND = &h2000
    TYPEFLAG_FPROXY = &h4000
End Enum

Enum FUNCFLAGS
    FUNCFLAG_FRESTRICTED = &h1
    FUNCFLAG_FSOURCE = &h2
    FUNCFLAG_FBINDABLE = &h4
    FUNCFLAG_FREQUESTEDIT = &h8
    FUNCFLAG_FDISPLAYBIND = &h10
    FUNCFLAG_FDEFAULTBIND = &h20
    FUNCFLAG_FHIDDEN = &h40
    FUNCFLAG_FUSESGETLASTERROR = &h80
    FUNCFLAG_FDEFAULTCOLLELEM = &h100
    FUNCFLAG_FUIDEFAULT = &h200
    FUNCFLAG_FNONBROWSABLE = &h400
    FUNCFLAG_FREPLACEABLE = &h800
    FUNCFLAG_FIMMEDIATEBIND = &h1000
End Enum

Const Enum VARFLAGS
    VARFLAG_FREADONLY = &h1
    VARFLAG_FSOURCE = &h2
    VARFLAG_FBINDABLE = &h4
    VARFLAG_FREQUESTEDIT = &h8
    VARFLAG_FDISPLAYBIND = &h10
    VARFLAG_FDEFAULTBIND = &h20
    VARFLAG_FHIDDEN = &h40
    VARFLAG_FRESTRICTED = &h80
    VARFLAG_FDEFAULTCOLLELEM = &h100
    VARFLAG_FUIDEFAULT = &h200
    VARFLAG_FNONBROWSABLE = &h400
    VARFLAG_FREPLACEABLE = &h800
    VARFLAG_FIMMEDIATEBIND = &h1000
End Enum

Type /* [wire_marshal] */ CLEANLOCALSTORAGE
    pInterface As *IUnknown
    pStorage As VoidPtr
    flags As DWord
End Type

Type CUSTDATAITEM
    guid As GUID
    varValue As VARIANTARG
End Type

TypeDef LPCUSTDATAITEM = *CUSTDATAITEM

Type CUSTDATA
    cCustData As DWord
    /* [size_is] */ prgCustData As *CUSTDATAITEM
End Type

TypeDef LPCUSTDATA = *CUSTDATA

#endif /* __IOleAutomationTypes_INTERFACE_DEFINED__ */

#ifndef __ICreateTypeInfo_INTERFACE_DEFINED__
#define __ICreateTypeInfo_INTERFACE_DEFINED__

/* interface ICreateTypeInfo */
/* [local][unique][uuid][object] */

'TypeDef /* [unique] */ ICreateTypeInfo *LPCREATETYPEINFO;

Dim IID_ICreateTypeInfo = [&h00020405, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID

Interface ICreateTypeInfo
    Inherits IUnknown

    Function SetGuid(
        /* [in] */ ByRef guid As GUID) As HRESULT

    Function SetTypeFlags(
        /* [in] */ uTypeFlags As DWord) As HRESULT

    Function SetDocString(
        /* [in] */ pStrDoc As LPOLESTR) As HRESULT

    Function SetHelpContext(
        /* [in] */ dwHelpContext As DWord) As HRESULT

    Function SetVersion(
        /* [in] */ wMajorVerNum As Word,
        /* [in] */ wMinorVerNum As Word) As HRESULT

    Function AddRefTypeInfo(
        /* [in] */ pTInfo As VoidPtr /* *ITypeInfo */,
        /* [in] */ByRef hRefType As HREFTYPE) As HRESULT

    Function AddFuncDesc(
        /* [in] */ index As DWord,
        /* [in] */ ByRef FuncDesc As FUNCDESC) As HRESULT

    Function AddImplType(
        /* [in] */ index As DWord,
        /* [in] */ hRefType As HREFTYPE) As HRESULT

    Function SetImplTypeFlags(
        /* [in] */ index As DWord,
        /* [in] */ implTypeFlags As Long) As HRESULT

    Function SetAlignment(
        /* [in] */ cbAlignment As Long) As HRESULT

    Function SetSchema(
        /* [in] */ pStrSchema As LPOLESTR) As HRESULT

    Function AddVarDesc(
        /* [in] */ index As DWord,
        /* [in] */ ByRef VarDesc As VARDESC) As HRESULT

    Function SetFuncAndParamNames(
        /* [in] */ index As DWord,
        /* [in][size_is][in] */ rgszNames As *LPOLESTR,
        /* [in] */ cNames As DWord) As HRESULT

    Function SetVarName(
        /* [in] */ index As DWord,
        /* [in] */ szName As LPOLESTR) As HRESULT

    Function SetTypeDescAlias(
        /* [in] */ ByRef TDescAlias As TYPEDESC) As HRESULT

    Function DefineFuncAsDllEntry(
        /* [in] */ index As DWord,
        /* [in] */ szDllName As LPOLESTR,
        /* [in] */ zProcName As LPOLESTR) As HRESULT

    Function SetFuncDocString(
        /* [in] */ index As DWord,
        /* [in] */ szDocString As LPOLESTR) As HRESULT

    Function SetVarDocString(
        /* [in] */ index As DWord,
        /* [in] */ szDocString As LPOLESTR) As HRESULT

    Function SetFuncHelpContext(
        /* [in] */ index As DWord,
        /* [in] */ dwHelpContext As DWord) As HRESULT

    Function SetVarHelpContext(
        /* [in] */ index As DWord,
        /* [in] */ dwHelpContext As DWord) As HRESULT

    Function SetMops(
        /* [in] */ index As DWord,
        /* [in] */ bstrMops As BSTR) As HRESULT

    Function SetTypeIdldesc(
        /* [in] */ ByRef IdlDesc As IDLDESC) As HRESULT

    Function LayOut() As HRESULT
End Interface

#endif  /* __ICreateTypeInfo_INTERFACE_DEFINED__ */

#ifndef __ICreateTypeInfo2_INTERFACE_DEFINED__
#define __ICreateTypeInfo2_INTERFACE_DEFINED__

/* interface ICreateTypeInfo2 */
/* [local][unique][uuid][object] */

TypeDef LPCREATETYPEINFO2 = /* [unique] */ *ICreateTypeInfo2

Dim IID_ICreateTypeInfo2 = [&h0002040E, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID

Interface ICreateTypeInfo2
    Inherits ICreateTypeInfo

    Function DeleteFuncDesc(
        /* [in] */ index As DWord) As HRESULT

    Function DeleteFuncDescByMemId(
        /* [in] */ memid As *MEMBERID,
        /* [in] */ invKind As *INVOKEKIND) As HRESULT

    Function DeleteVarDesc(
        /* [in] */ index As DWord) As HRESULT

    Function DeleteVarDescByMemId(
        /* [in] */ memid As *MEMBERID) As HRESULT

    Function DeleteImplType(
        /* [in] */ index As DWord) As HRESULT

    Function SetCustData(
        /* [in] */ ByRef guid As GUID,
        /* [in] */ ByRef VarVal As VARIANT) As HRESULT

    Function SetFuncCustData(
        /* [in] */ index As DWord,
        /* [in] */ ByRef guid As GUID,
        /* [in] */ ByRef VarVal As VARIANT) As HRESULT

    Function SetParamCustData(
        /* [in] */ indexFunc As DWord,
        /* [in] */ indexParam As DWord,
        /* [in] */ ByRef guid As GUID,
        /* [in] */ ByRef VarVal As VARIANT) As HRESULT

    Function SetVarCustData(
        /* [in] */ index As DWord,
        /* [in] */ ByRef guid As GUID,
        /* [in] */ ByRef VarVal As VARIANT) As HRESULT

    Function SetImplTypeCustData(
        /* [in] */ index As DWord,
        /* [in] */ ByRef guid As GUID,
        /* [in] */ ByRef VarVal As VARIANT) As HRESULT

    Function SetHelpStringContext(
        /* [in] */ dwHelpStringContext As DWord) As HRESULT

    Function SetFuncHelpStringContext(
        /* [in] */ index As DWord,
        /* [in] */ dwHelpStringContext As DWord) As HRESULT

    Function SetVarHelpStringContext(
        /* [in] */ index As DWord,
        /* [in] */ dwHelpStringContext As DWord) As HRESULT

    Function Invalidate() As HRESULT

    Function SetName(
        /* [in] */ szName As LPOLESTR) As HRESULT
End Interface

#endif  /* __ICreateTypeInfo2_INTERFACE_DEFINED__ */


#ifndef __ICreateTypeLib_INTERFACE_DEFINED__
#define __ICreateTypeLib_INTERFACE_DEFINED__

/* interface ICreateTypeLib */
/* [local][unique][uuid][object] */

TypeDef LPCREATETYPELIB = /* [unique] */ *ICreateTypeLib


Dim IID_ICreateTypeLib = [&h00020406, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
Interface ICreateTypeLib
    Inherits IUnknown

    Function CreateTypeInfo(
        /* [in] */ szName As LPOLESTR,
        /* [in] */ tkind As *TYPEKIND,
        /* [out] */ ByRef pCTInfo As *ICreateTypeInfo) As HRESULT

    Function SetName(
        /* [in] */ szName As LPOLESTR) As HRESULT

    Function SetVersion(
        /* [in] */ wMajorVerNum As Word,
        /* [in] */ wMinorVerNum As Word) As HRESULT

    Function SetGuid(
        /* [in] */ ByRef guid As GUID) As HRESULT

    Function SetDocString(
        /* [in] */ szDoc As LPOLESTR) As HRESULT

    Function SetHelpFileName(
        /* [in] */ szHelpFileName As LPOLESTR) As HRESULT

    Function SetHelpContext(
        /* [in] */ dwHelpContext As DWord) As HRESULT

    Function SetLcid(
        /* [in] */ lcid As LCID) As HRESULT

    Function SetLibFlags(
        /* [in] */ uLibFlags As DWord) As HRESULT

    Function SaveAllChanges() As HRESULT
End Interface


#endif  /* __ICreateTypeLib_INTERFACE_DEFINED__ */

#ifndef __ICreateTypeLib2_INTERFACE_DEFINED__
#define __ICreateTypeLib2_INTERFACE_DEFINED__

/* interface ICreateTypeLib2 */
/* [local][unique][uuid][object] */

TypeDef LPCREATETYPELIB2 = /* [unique] */ *ICreateTypeLib2


Dim IID_ICreateTypeLib2 = [&h0002040F, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID

Interface ICreateTypeLib2
    Inherits ICreateTypeLib

    Function DeleteTypeInfo(
        /* [in] */ szName As LPOLESTR) As HRESULT

    Function SetCustData(
        /* [in] */ ByRef guid As GUID,
        /* [in] */ ByRef VarVal As VARIANT) As HRESULT

    Function SetHelpStringContext(
        /* [in] */ dwHelpStringContext As DWord) As HRESULT

    Function SetHelpStringDll(
        /* [in] */ szFileName As LPOLESTR) As HRESULT

End Interface


#endif  /* __ICreateTypeLib2_INTERFACE_DEFINED__ */

#ifndef __IDispatch_INTERFACE_DEFINED__
#define __IDispatch_INTERFACE_DEFINED__

/* interface IDispatch */
/* [unique][uuid][object] */

Typedef LPDISPATCH = /* [unique] */ *IDispatch

Const DISPID_UNKNOWN = -1
Const DISPID_VALUE = 0
Const DISPID_PROPERTYPUT = -3
Const DISPID_NEWENUM = -4
Const DISPID_EVALUATE = -5
Const DISPID_CONSTRUCTOR = -6
Const DISPID_DESTRUCTOR = -7
Const DISPID_COLLECT = -8

/* The range -500 through -999 is reserved for Controls */
/* The range 0x80010000 through 0x8001FFFF is reserved for Controls */
/* The range -5000 through -5499 is reserved for ActiveX Accessability */
/* The range -2000 through -2499 is reserved for VB5 */
/* The range -3900 through -3999 is reserved for Forms */
/* The range -5500 through -5550 is reserved for Forms */
/* The remainder of the negative DISPIDs are reserved for future use */

Dim IID_IDispatch = [&h00020400, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID

Interface IDispatch
    Inherits IUnknown

    Function GetTypeInfoCount(
        /* [out] */ ByRef pctinfo As DWord) As HRESULT
    Function GetTypeInfo(
        /* [in] */ iTInfo As DWord,
        /* [in] */ lcid As LCID,
        /* [out] */ ByRef pTInfo As VoidPtr /* *ITypeInfo */) As HRESULT
    Function GetIDsOfNames(
        /* [in] */ ByRef riid As IID,
        /* [size_is][in] */ ByRef rgszNames As LPOLESTR,
        /* [in] */ cNames As DWord,
        /* [in] */ lcid As LCID,
        /* [size_is][out] */ ByRef rgDispId As DISPID) As HRESULT
    Function /* [local] */ Invoke(
        /* [in] */ dispIdMember As DISPID,
        /* [in] */ ByRef riid As IID,
        /* [in] */ lcid As LCID,
        /* [in] */ wFlags As Word,
        /* [out][in] */ ByRef pDispParams As DISPPARAMS,
        /* [out] */ ByRef pVarResult As VARIANT,
        /* [out] */ ByRef pExcepInfo As EXCEPINFO,
        /* [out] */ ByRef puArgErr As DWord) As HRESULT
End Interface

#endif  /* __IDispatch_INTERFACE_DEFINED__ */

#ifndef __IEnumVARIANT_INTERFACE_DEFINED__
#define __IEnumVARIANT_INTERFACE_DEFINED__

/* interface IEnumVARIANT */
/* [unique][uuid][object] */

Typedef LPENUMVARIANT = /* [unique] */ *IEnumVARIANT

Dim IID_IEnumVARIANT = [&h00020404, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID

Interface IEnumVARIANT
    Inherits IUnknown

    /* [local] */ Function Next(
        /* [in] */ celt As DWord,
        /* [length_is][size_is][out] */ rgVar As *VARIANT,
        /* [out] */ pCeltFetched As *DWord) As HRESULT
    Function Skip(
        /* [in] */ celt As DWord) As HRESULT
    Function Reset() As HRESULT
    Function Clone(
        /* [out] */ ByRef pEnum As *IEnumVARIANT) As HRESULT

End Interface

#endif  /* __IEnumVARIANT_INTERFACE_DEFINED__ */

#ifndef __ITypeComp_INTERFACE_DEFINED__
#define __ITypeComp_INTERFACE_DEFINED__

/* interface ITypeComp */
/* [unique][uuid][object] */

TypeDef LPTYPECOMP = /* [unique] */ *ITypeComp

/* [v1_enum] */
Const Enum DESCKIND
    DESCKIND_NONE
    DESCKIND_FUNCDESC = DESCKIND_NONE
    DESCKIND_VARDESC = DESCKIND_FUNCDESC
    DESCKIND_TYPECOMP = DESCKIND_VARDESC
    DESCKIND_IMPLICITAPPOBJ = DESCKIND_TYPECOMP
    DESCKIND_MAX = DESCKIND_IMPLICITAPPOBJ
End Enum
/*
Union BINDPTR
    lpfuncdesc As *FUNCDESC
    lpvardesc As *VARDESC
    lptcomp As *ITypeComp
End Union
*/
Type BINDPTR
    p As VoidPtr '暫定
End Type

TypeDef LPBINDPTR = *BINDPTR

Dim IID_ITypeComp = [&h00020403, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID

Interface ITypeComp
    Inherits IUnknown

    Function /* [local] */ Bind(
        /* [in] */ szName As LPOLESTR,
        /* [in] */ HashVal As DWord,
        /* [in] */ wFlags As Word,
        /* [out] */ ByRef pTInfo As *ITypeInfo,
        /* [out] */ ByRef DescKind As DESCKIND,
        /* [out] */ ByRef BindPtr As BINDPTR) As HRESULT

    Function /* [local] */ BindType(
        /* [in] */ szName As LPOLESTR,
        /* [in] */ HashVal As DWord,
        /* [out] */ ByRef pTInfo As *ITypeInfo,
        /* [out] */ ByRef pTComp As *ITypeComp) As HRESULT
End Interface

#endif  /* __ITypeComp_INTERFACE_DEFINED__ */

#ifndef __ITypeInfo_INTERFACE_DEFINED__
#define __ITypeInfo_INTERFACE_DEFINED__

/* interface ITypeInfo */
/* [unique][uuid][object] */

TypeDef LPTYPEINFO = /* [unique] */ *ITypeInfo

Dim IID_ITypeInfo = [&H00020401, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID

Interface ITypeInfo
    Inherits IUnknown

    Function /* [local] */ GetTypeAttr(
        /* [out] */ ByRef pTypeAttr As *TYPEATTR) As HRESULT

    Function GetTypeComp(
        /* [out] */ ByRef pTComp As *ITypeComp) As HRESULT

    Function /* [local] */ GetFuncDesc(
        /* [in] */ index As DWord,
        /* [out] */ ByRef pFuncDesc As *FUNCDESC) As HRESULT

    Function /* [local] */ GetVarDesc(
        /* [in] */ index As DWord,
        /* [out] */ ByRef pVarDesc As *VARDESC) As HRESULT

    Function /* [local] */ GetNames(
        /* [in] */ memid As MEMBERID,
        /* [length_is][size_is][out] */ rgBstrNames As *BSTR,
        /* [in] */ cMaxNames As DWord,
        /* [out] */ ByRef cNames As DWord) As HRESULT

    Function GetRefTypeOfImplType(
        /* [in] */ index As DWord,
        /* [out] */ ByRef RefType As HREFTYPE) As HRESULT

    Function GetImplTypeFlags(
        /* [in] */ index As DWord,
        /* [out] */ ByRef ImplTypeFlags As Long) As HRESULT

    Function /* [local] */ GetIDsOfNames(
        /* [size_is][in] */ rgszNames As *LPOLESTR,
        /* [in] */ cNames As DWord,
        /* [size_is][out] */ pMemId As *MEMBERID) As HRESULT

    Function /* [local] */ Invoke(
        /* [in] */ pvInstance As VoidPtr,
        /* [in] */ memid As MEMBERID,
        /* [in] */ wFlags As Word,
        /* [out][in] */ ByRef DispParams As DISPPARAMS,
        /* [out] */ ByRef VarResult As VARIANT,
        /* [out] */ ByRef ExcepInfo As EXCEPINFO,
        /* [out] */ ByRef uArgErr As DWord) As HRESULT

    Function /* [local] */ GetDocumentation(
        /* [in] */ memid As MEMBERID,
        /* [out] */ ByRef BstrName As BSTR,
        /* [out] */ ByRef BstrDocString As BSTR,
        /* [out] */ ByRef dwHelpContext As DWord,
        /* [out] */ ByRef BstrHelpFile As BSTR) As HRESULT

    Function /* [local] */ GetDllEntry(
        /* [in] */ memid As MEMBERID,
        /* [in] */ invKind As INVOKEKIND,
        /* [out] */ ByRef BstrDllName As BSTR,
        /* [out] */ ByRef BstrName As BSTR,
        /* [out] */ ByRef wOrdinal As Word) As HRESULT

    Function GetRefTypeInfo(
        /* [in] */ hRefType As HREFTYPE,
        /* [out] */ ByRef pTInfo As *ITypeInfo) As HRESULT

    Function /* [local] */ AddressOfMember(
        /* [in] */ memid As MEMBERID,
        /* [in] */ invKind As INVOKEKIND,
        /* [out] */ ByRef pv As VoidPtr) As HRESULT

    Function /* [local] */ CreateInstance(
        /* [in] */ pUnkOuter As *IUnknown,
        /* [in] */ ByRef riid As IID,
        /* [iid_is][out] */ ByRef pvObj As Any) As HRESULT

    Function GetMops(
        /* [in] */ memid As MEMBERID,
        /* [out] */ ByRef BstrMops As BSTR) As HRESULT

    Function /* [local] */ GetContainingTypeLib(
        /* [out] */ ByRef pTLib As *ITypeLib,
        /* [out] */ ByRef Index As UINT) As HRESULT

    Function /* [local] */ void STDMETHODCALLTYPE ReleaseTypeAttr(
        /* [in] */ pTypeAttr As *TYPEATTR) As HRESULT

    Function /* [local] */ void STDMETHODCALLTYPE ReleaseFuncDesc(
        /* [in] */ pFuncDesc As *FUNCDESC) As HRESULT

    Function /* [local] */ void STDMETHODCALLTYPE ReleaseVarDesc(
        /* [in] */ pVarDesc As *VARDESC) As HRESULT
End Interface

#endif  /* __ITypeInfo_INTERFACE_DEFINED__ */

#ifndef __ITypeInfo2_INTERFACE_DEFINED__
#define __ITypeInfo2_INTERFACE_DEFINED__

/* interface ITypeInfo2 */
/* [unique][uuid][object] */

TypeDef LPTYPEINFO2 = /* [unique] */ *ITypeInfo2

Dim IID_ITypeInfo2 = [&H00020412, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID

Interface ITypeInfo2
    Inherits ITypeInfo

    Function GetTypeKind(
        /* [out] */ ByRef TypeKind As TYPEKIND) As HRESULT
    Function GetTypeFlags(
        /* [out] */ ByRef TypeFlags As DWord) As HRESULT
    Function GetFuncIndexOfMemId(
        /* [in] */ memid As MEMBERID,
        /* [in] */ invKind As INVOKEKIND,
        /* [out] */ ByRef FuncIndex As DWord) As HRESULT
    Function GetVarIndexOfMemId(
        /* [in] */ memid As MEMBERID,
        /* [out] */ ByRef pVarIndex As DWord) As HRESULT
    Function GetCustData(
        /* [in] */ ByRef guid As GUID,
        /* [out] */ ByRef VarVal As VARIANT) As HRESULT
    Function GetFuncCustData(
        /* [in] */ index As DWord,
        /* [in] */ ByRef guid As GUID,
        /* [out] */ ByRef VarVal As VARIANT) As HRESULT
    Function GetParamCustData(
        /* [in] */ indexFunc As DWord,
        /* [in] */ indexParam As DWord,
        /* [in] */ ByRef guid As GUID,
        /* [out] */ ByRef VarVal As VARIANT) As HRESULT
    Function GetVarCustData(
        /* [in] */ UINT index,
        /* [in] */ ByRef guid As GUID,
        /* [out] */ ByRef VarVal As VARIANT) As HRESULT
    Function GetImplTypeCustData(
        /* [in] */ UINT index,
        /* [in] */ ByRef guid As GUID,
        /* [out] */ ByRef VarVal As VARIANT) As HRESULT
    virtual /* [local] */ HRESULT STDMETHODCALLTYPE GetDocumentation2(
        /* [in] */ memid As MEMBERID,
        /* [in] */ lcid As LCID,
        /* [out] */ ByRef bstrHelpString As BSTR,
        /* [out] */ ByRef dwHelpStringContext As DWord,
        /* [out] */ ByRef bstrHelpStringDll As BSTR) As HRESULT
    Function GetAllCustData(
        /* [out] */ ByRef CustData As CUSTDATA) As HRESULT
    Function GetAllFuncCustData(
        /* [in] */ index As DWord,
        /* [out] */ ByRef CustData As CUSTDATA) As HRESULT
    Function GetAllParamCustData(
        /* [in] */ indexFunc As DWord,
        /* [in] */ indexParam As DWord,
        /* [out] */ ByRef CustData As CUSTDATA) As HRESULT
    Function GetAllVarCustData(
        /* [in] */ index As DWord,
        /* [out] */ ByRef CustData As CUSTDATA) As HRESULT
    Function GetAllImplTypeCustData(
        /* [in] */ index As DWord,
        /* [out] */ ByRef CustData As CUSTDATA) As HRESULT
End Interface

#endif  /* __ITypeInfo2_INTERFACE_DEFINED__ */

#ifdef __UNDECLARED__

#ifndef __ITypeLib_INTERFACE_DEFINED__
#define __ITypeLib_INTERFACE_DEFINED__

/* interface ITypeLib */
/* [unique][uuid][object] */

/* [v1_enum] */
Enum SYSKIND
    SYS_WIN16 = 0
    SYS_WIN32 = SYS_WIN16 + 1
    SYS_MAC = SYS_WIN32 + 1
    SYS_WIN64 = SYS_MAC + 1
End Enum

/* [v1_enum] */
Enum LIBFLAGS
    LIBFLAG_FRESTRICTED = &h1
    LIBFLAG_FCONTROL = &h2
    LIBFLAG_FHIDDEN = &h4
    LIBFLAG_FHASDISKIMAGE = &h8
End Enum

TypeDef /* [unique] */ ITypeLib *LPTYPELIB;

Type TLIBATTR
    guid As GUID
    lcid As LCID
    syskind As SYSKIND
    wMajorVerNum As Word
    wMinorVerNum As Word
    wLibFlags As Word
End Type

TypeDef struct tagTLIBATTR *LPTLIBATTR;


EXTERN_C const IID IID_ITypeLib;

    MIDL_INTERFACE("00020402-0000-0000-C000-000000000046")
    ITypeLib : public IUnknown
    {
    public:
        virtual /* [local] */ UINT STDMETHODCALLTYPE GetTypeInfoCount( void) As HRESULT

        Function GetTypeInfo(
            /* [in] */ UINT index,
            /* [out] */ ITypeInfo **ppTInfo) As HRESULT

        Function GetTypeInfoType(
            /* [in] */ UINT index,
            /* [out] */ TYPEKIND *pTKind) As HRESULT

        Function GetTypeInfoOfGuid(
            /* [in] */ REFGUID guid,
            /* [out] */ ITypeInfo **ppTinfo) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE GetLibAttr(
            /* [out] */ TLIBATTR **ppTLibAttr) As HRESULT

        Function GetTypeComp(
            /* [out] */ ITypeComp **ppTComp) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE GetDocumentation(
            /* [in] */ INT index,
            /* [out] */ BSTR *pBstrName,
            /* [out] */ BSTR *pBstrDocString,
            /* [out] */ DWORD *pdwHelpContext,
            /* [out] */ BSTR *pBstrHelpFile) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE IsName(
            /* [out][in] */ LPOLESTR szNameBuf,
            /* [in] */ ULONG lHashVal,
            /* [out] */ BOOL *pfName) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE FindName(
            /* [out][in] */ LPOLESTR szNameBuf,
            /* [in] */ ULONG lHashVal,
            /* [length_is][size_is][out] */ ITypeInfo **ppTInfo,
            /* [length_is][size_is][out] */ MEMBERID *rgMemId,
            /* [out][in] */ USHORT *pcFound) As HRESULT

        virtual /* [local] */ void STDMETHODCALLTYPE ReleaseTLibAttr(
            /* [in] */ TLIBATTR *pTLibAttr) As HRESULT

    };

#endif  /* __ITypeLib_INTERFACE_DEFINED__ */


#ifndef __ITypeLib2_INTERFACE_DEFINED__
#define __ITypeLib2_INTERFACE_DEFINED__

/* interface ITypeLib2 */
/* [unique][uuid][object] */

TypeDef /* [unique] */ ITypeLib2 *LPTYPELIB2;


EXTERN_C const IID IID_ITypeLib2;

    MIDL_INTERFACE("00020411-0000-0000-C000-000000000046")
    ITypeLib2 : public ITypeLib
    {
    public:
        Function GetCustData(
            /* [in] */ REFGUID guid,
            /* [out] */ VARIANT *pVarVal) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE GetLibStatistics(
            /* [out] */ ULONG *pcUniqueNames,
            /* [out] */ ULONG *pcchUniqueNames) As HRESULT

        virtual /* [local] */ HRESULT STDMETHODCALLTYPE GetDocumentation2(
            /* [in] */ INT index,
            /* [in] */ LCID lcid,
            /* [out] */ BSTR *pbstrHelpString,
            /* [out] */ DWORD *pdwHelpStringContext,
            /* [out] */ BSTR *pbstrHelpStringDll) As HRESULT

        Function GetAllCustData(
            /* [out] */ CUSTDATA *pCustData) As HRESULT

    };

#endif  /* __ITypeLib2_INTERFACE_DEFINED__ */


#ifndef __ITypeChangeEvents_INTERFACE_DEFINED__
#define __ITypeChangeEvents_INTERFACE_DEFINED__

/* interface ITypeChangeEvents */
/* [local][unique][uuid][object] */

TypeDef /* [unique] */ ITypeChangeEvents *LPTYPECHANGEEVENTS;

Enum CHANGEKIND
    CHANGEKIND_ADDMEMBER = 0,
    CHANGEKIND_DELETEMEMBER = CHANGEKIND_ADDMEMBER + 1,
    CHANGEKIND_SETNAMES = CHANGEKIND_DELETEMEMBER + 1,
    CHANGEKIND_SETDOCUMENTATION = CHANGEKIND_SETNAMES + 1,
    CHANGEKIND_GENERAL = CHANGEKIND_SETDOCUMENTATION + 1,
    CHANGEKIND_INVALIDATE = CHANGEKIND_GENERAL + 1,
    CHANGEKIND_CHANGEFAILED = CHANGEKIND_INVALIDATE + 1,
    CHANGEKIND_MAX = CHANGEKIND_CHANGEFAILED + 1
End Enum


EXTERN_C const IID IID_ITypeChangeEvents;

    MIDL_INTERFACE("00020410-0000-0000-C000-000000000046")
    ITypeChangeEvents : public IUnknown
    {
    public:
        Function RequestTypeChange(
            /* [in] */ CHANGEKIND changeKind,
            /* [in] */ ITypeInfo *pTInfoBefore,
            /* [in] */ LPOLESTR pStrName,
            /* [out] */ INT *pfCancel) As HRESULT

        Function AfterTypeChange(
            /* [in] */ CHANGEKIND changeKind,
            /* [in] */ ITypeInfo *pTInfoAfter,
            /* [in] */ LPOLESTR pStrName) As HRESULT

    };

#endif  /* __ITypeChangeEvents_INTERFACE_DEFINED__ */


#ifndef __IErrorInfo_INTERFACE_DEFINED__
#define __IErrorInfo_INTERFACE_DEFINED__

/* interface IErrorInfo */
/* [unique][uuid][object] */

TypeDef /* [unique] */ IErrorInfo *LPERRORINFO;


EXTERN_C const IID IID_IErrorInfo;

    MIDL_INTERFACE("1CF2B120-547D-101B-8E65-08002B2BD119")
    IErrorInfo : public IUnknown
    {
    public:
        Function GetGUID(
            /* [out] */ GUID *pGUID) As HRESULT

        Function GetSource(
            /* [out] */ BSTR *pBstrSource) As HRESULT

        Function GetDescription(
            /* [out] */ BSTR *pBstrDescription) As HRESULT

        Function GetHelpFile(
            /* [out] */ BSTR *pBstrHelpFile) As HRESULT

        Function GetHelpContext(
            /* [out] */ DWORD *pdwHelpContext) As HRESULT

    };

#endif  /* __IErrorInfo_INTERFACE_DEFINED__ */


#ifndef __ICreateErrorInfo_INTERFACE_DEFINED__
#define __ICreateErrorInfo_INTERFACE_DEFINED__

/* interface ICreateErrorInfo */
/* [unique][uuid][object] */

TypeDef /* [unique] */ ICreateErrorInfo *LPCREATEERRORINFO;


EXTERN_C const IID IID_ICreateErrorInfo;

    MIDL_INTERFACE("22F03340-547D-101B-8E65-08002B2BD119")
    ICreateErrorInfo : public IUnknown
    {
    public:
        Function SetGUID(
            /* [in] */ REFGUID rguid) As HRESULT

        Function SetSource(
            /* [in] */ LPOLESTR szSource) As HRESULT

        Function SetDescription(
            /* [in] */ LPOLESTR szDescription) As HRESULT

        Function SetHelpFile(
            /* [in] */ LPOLESTR szHelpFile) As HRESULT

        Function SetHelpContext(
            /* [in] */ DWORD dwHelpContext) As HRESULT

    };

#endif  /* __ICreateErrorInfo_INTERFACE_DEFINED__ */


#ifndef __ISupportErrorInfo_INTERFACE_DEFINED__
#define __ISupportErrorInfo_INTERFACE_DEFINED__

/* interface ISupportErrorInfo */
/* [unique][uuid][object] */

TypeDef /* [unique] */ ISupportErrorInfo *LPSUPPORTERRORINFO;


EXTERN_C const IID IID_ISupportErrorInfo;

    MIDL_INTERFACE("DF0B3D60-548F-101B-8E65-08002B2BD119")
    ISupportErrorInfo : public IUnknown
    {
    public:
        Function InterfaceSupportsErrorInfo(
            /* [in] */ REFIID riid) As HRESULT

    };

#endif  /* __ISupportErrorInfo_INTERFACE_DEFINED__ */


#ifndef __ITypeFactory_INTERFACE_DEFINED__
#define __ITypeFactory_INTERFACE_DEFINED__

/* interface ITypeFactory */
/* [uuid][object] */


EXTERN_C const IID IID_ITypeFactory;

    MIDL_INTERFACE("0000002E-0000-0000-C000-000000000046")
    ITypeFactory : public IUnknown
    {
    public:
        Function CreateFromTypeInfo(
            /* [in] */ ITypeInfo *pTypeInfo,
            /* [in] */ REFIID riid,
            /* [iid_is][out] */ IUnknown **ppv) As HRESULT

    };

#endif  /* __ITypeFactory_INTERFACE_DEFINED__ */


#ifndef __ITypeMarshal_INTERFACE_DEFINED__
#define __ITypeMarshal_INTERFACE_DEFINED__

/* interface ITypeMarshal */
/* [uuid][object][local] */


EXTERN_C const IID IID_ITypeMarshal;

    MIDL_INTERFACE("0000002D-0000-0000-C000-000000000046")
    ITypeMarshal : public IUnknown
    {
    public:
        Function Size(
            /* [in] */ PVOID pvType,
            /* [in] */ DWORD dwDestContext,
            /* [in] */ PVOID pvDestContext,
            /* [out] */ ULONG *pSize) As HRESULT

        Function Marshal(
            /* [in] */ PVOID pvType,
            /* [in] */ DWORD dwDestContext,
            /* [in] */ PVOID pvDestContext,
            /* [in] */ ULONG cbBufferLength,
            /* [out] */ BYTE *pBuffer,
            /* [out] */ ULONG *pcbWritten) As HRESULT

        Function Unmarshal(
            /* [out] */ PVOID pvType,
            /* [in] */ DWORD dwFlags,
            /* [in] */ ULONG cbBufferLength,
            /* [in] */ BYTE *pBuffer,
            /* [out] */ ULONG *pcbRead) As HRESULT

        Function Free(
            /* [in] */ PVOID pvType) As HRESULT

    };

#endif  /* __ITypeMarshal_INTERFACE_DEFINED__ */


#ifndef __IRecordInfo_INTERFACE_DEFINED__
#define __IRecordInfo_INTERFACE_DEFINED__

/* interface IRecordInfo */
/* [uuid][object][local] */

TypeDef /* [unique] */ IRecordInfo *LPRECORDINFO;


EXTERN_C const IID IID_IRecordInfo;

    MIDL_INTERFACE("0000002F-0000-0000-C000-000000000046")
    IRecordInfo : public IUnknown
    {
    public:
        Function RecordInit(
            /* [out] */ PVOID pvNew) As HRESULT

        Function RecordClear(
            /* [in] */ PVOID pvExisting) As HRESULT

        Function RecordCopy(
            /* [in] */ PVOID pvExisting,
            /* [out] */ PVOID pvNew) As HRESULT

        Function GetGuid(
            /* [out] */ GUID *pguid) As HRESULT

        Function GetName(
            /* [out] */ BSTR *pbstrName) As HRESULT

        Function GetSize(
            /* [out] */ ULONG *pcbSize) As HRESULT

        Function GetTypeInfo(
            /* [out] */ ITypeInfo **ppTypeInfo) As HRESULT

        Function GetField(
            /* [in] */ PVOID pvData,
            /* [in] */ LPCOLESTR szFieldName,
            /* [out] */ VARIANT *pvarField) As HRESULT

        Function GetFieldNoCopy(
            /* [in] */ PVOID pvData,
            /* [in] */ LPCOLESTR szFieldName,
            /* [out] */ VARIANT *pvarField,
            /* [out] */ PVOID *ppvDataCArray) As HRESULT

        Function PutField(
            /* [in] */ ULONG wFlags,
            /* [out][in] */ PVOID pvData,
            /* [in] */ LPCOLESTR szFieldName,
            /* [in] */ VARIANT *pvarField) As HRESULT

        Function PutFieldNoCopy(
            /* [in] */ ULONG wFlags,
            /* [out][in] */ PVOID pvData,
            /* [in] */ LPCOLESTR szFieldName,
            /* [in] */ VARIANT *pvarField) As HRESULT

        Function GetFieldNames(
            /* [out][in] */ ULONG *pcNames,
            /* [length_is][size_is][out] */ BSTR *rgBstrNames) As HRESULT

        virtual BOOL STDMETHODCALLTYPE IsMatchingType(
            /* [in] */ IRecordInfo *pRecordInfo) As HRESULT

        virtual PVOID STDMETHODCALLTYPE RecordCreate( void) As HRESULT

        Function RecordCreateCopy(
            /* [in] */ PVOID pvSource,
            /* [out] */ PVOID *ppvDest) As HRESULT

        Function RecordDestroy(
            /* [in] */ PVOID pvRecord) As HRESULT

    };

#endif  /* __IRecordInfo_INTERFACE_DEFINED__ */

#endif ' __UNDEFINED__


#ifndef __IErrorLog_INTERFACE_DEFINED__
#define __IErrorLog_INTERFACE_DEFINED__

/* interface IErrorLog */
/* [unique][uuid][object] */

TypeDef LPERRORLOG = *IErrorLog

Dim IID_IErrorLog = [&h3127CA40, &h446E, &h11CE, [&h81, &h35, &h00, &hAA, &h00, &h4B, &hB8, &h51]] As IID

Interface IErrorLog
    Inherits IUnknown

    Function AddError(
        /* [in] */ pszPropName As LPCOLESTR,
        /* [in] */ ByRef pExcepInfo As EXCEPINFO) As HRESULT
End Interface

#endif  /* __IErrorLog_INTERFACE_DEFINED__ */


#ifndef __IPropertyBag_INTERFACE_DEFINED__
#define __IPropertyBag_INTERFACE_DEFINED__

/* interface IPropertyBag */
/* [unique][uuid][object] */

TypeDef LPPROPERTYBAG = *IPropertyBag

Dim IID_IPropertyBag = [&h55272A00, &h42CB, &h11CE, [&h81, &h35, &h00, &hAA, &h00, &h4B, &hB8, &h51]] As IID

Interface IPropertyBag
    Inherits IUnknown

    /* [local] */ Function Read(
        /* [in] */ pszPropName As LPCOLESTR,
        /* [out][in] */ ByRef Var As VARIANT,
        /* [in] */ pErrorLog As *IErrorLog) As HRESULT

    Function Write(
        /* [in] */ pszPropName As LPCOLESTR,
        /* [in] */ ByRef Var As VARIANT) As HRESULT
End Interface

#endif  /* __IPropertyBag_INTERFACE_DEFINED__ */

#endif '_INC_OAIDL_AB