source: Include/OAIdl.ab@ 223

' 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
TypeDef CY = Int64
'Type /*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 Type'Class

Type /*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 Type ' Class

TypeDef DATE = Double ' WTypes.ab

/* 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

Type /*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 Type '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

Type /*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 Type '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

Type /*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 Type '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 As *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

Type /*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 Type '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] */ rgszNames As *LPOLESTR,
        /* [in] */ cNames As DWord,
        /* [in] */ lcid As LCID,
        /* [size_is][out] */ 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 DWord) As HRESULT

    Sub /* [local] */ ReleaseTypeAttr(
        /* [in] */ pTypeAttr As *TYPEATTR)

    Sub /* [local] */ ReleaseFuncDesc(
        /* [in] */ pFuncDesc As *FUNCDESC)

    Sub /* [local] */ ReleaseVarDesc(
        /* [in] */ pVarDesc As *VARDESC)
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] */ index As DWord,
        /* [in] */ ByRef guid As GUID,
        /* [out] */ ByRef VarVal As VARIANT) As HRESULT
    Function GetImplTypeCustData(
        /* [in] */ index As DWord,
        /* [in] */ ByRef guid As GUID,
        /* [out] */ ByRef VarVal As VARIANT) As HRESULT
    Function /* [local] */ 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__ */

#ifndef __ITypeLib_INTERFACE_DEFINED__
#define __ITypeLib_INTERFACE_DEFINED__

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

/* [v1_enum] */
Const Enum SYSKIND
    SYS_WIN16 = 0
    SYS_WIN32 = 1
    SYS_MAC = 2
    SYS_WIN64 = 3
End Enum

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

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

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

TypeDef LPTLIBATTR = TLIBATTR

Dim ITypeLib = [&h00020402, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID

Interface ITypeLib
    Inherits IUnknown

    Function /* [local] */ GetTypeInfoCount() As DWord
    Function GetTypeInfo(
        /* [in] */ index As DWord,
        /* [out] */ ByRef pTInfo As *ITypeInfo) As HRESULT
    Function GetTypeInfoType(
        /* [in] */ index As DWord,
        /* [out] */ ByRef TKind As TYPEKIND) As HRESULT
    Function GetTypeInfoOfGuid(
        /* [in] */ ByRef guid As GUID,
        /* [out] */ ByRef pTInfo As *ITypeInfo) As HRESULT
    Function /* [local] */ GetLibAttr(
        /* [out] */ ByRef pTLibAttr As *TLIBATTR) As HRESULT
    Function GetTypeComp(
        /* [out] */ ByRef ppTComp As *ITypeComp) As HRESULT
    Function /* [local] */ GetDocumentation(
        /* [in] */ index As Long,
        /* [out] */ ByRef BstrName As BSTR,
        /* [out] */ ByRef BstrDocString As BSTR,
        /* [out] */ ByRef dwHelpContext As DWord,
        /* [out] */ ByRef BstrHelpFile As BSTR) As HRESULT
    Function /* [local] */ IsName(
        /* [out][in] */ szNameBuf As LPOLESTR,
        /* [in] */ lHashVal As DWord,
        /* [out] */ ByRef pfName As BOOL) As HRESULT
    Function /* [local] */ FindName(
        /* [out][in] */ szNameBuf As LPOLESTR,
        /* [in] */ lHashVal As DWord,
        /* [length_is][size_is][out] */ ppTInfo As **ITypeInfo,
        /* [length_is][size_is][out] */ rgMemId As *MEMBERID,
        /* [out][in] */ ByRef cFound As Word) As HRESULT
    Sub /* [local] */ ReleaseTLibAttr(
        /* [in] */ ByRef TLibAttr As TLIBATTR) 
End Interface

#endif  /* __ITypeLib_INTERFACE_DEFINED__ */


#ifndef __ITypeLib2_INTERFACE_DEFINED__
#define __ITypeLib2_INTERFACE_DEFINED__

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

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

Dim IID_ITypeLib2 = [&h00020411, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID

Interface ITypeLib2
    Inherits ITypeLib

    Function GetCustData(
        /* [in] */ ByRef guid As GUID,
        /* [out] */ ByRef VarVal As VARIANT) As HRESULT
    /* [local] */ Function GetLibStatistics(
        /* [out] */ ByRef cUniqueNames As DWord,
        /* [out] */ ByRef chUniqueNames As DWord) As HRESULT
    /* [local] */ Function GetDocumentation2(
            /* [in] */ index As Long,
            /* [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
End Interface

#endif  /* __ITypeLib2_INTERFACE_DEFINED__ */


#ifndef __ITypeChangeEvents_INTERFACE_DEFINED__
#define __ITypeChangeEvents_INTERFACE_DEFINED__

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

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

Enum CHANGEKIND
    CHANGEKIND_ADDMEMBER = 0
    CHANGEKIND_DELETEMEMBER = 1
    CHANGEKIND_SETNAMES = 2
    CHANGEKIND_SETDOCUMENTATION = 3
    CHANGEKIND_GENERAL = 4
    CHANGEKIND_INVALIDATE = 5
    CHANGEKIND_CHANGEFAILED = 6
    CHANGEKIND_MAX = 7
End Enum

Dim IID_ITypeChangeEvents = [&h00020410, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID

Interface ITypeChangeEvents
    Inherits IUnknown

    Function RequestTypeChange(
        /* [in] */ changeKind As CHANGEKIND,
        /* [in] */ pTInfoBefore As ITypeInfo,
        /* [in] */ pStrName As LPOLESTR,
        /* [out] */ ByRef fCancel As Long) As HRESULT
    Function AfterTypeChange(
        /* [in] */ changeKind As CHANGEKIND,
        /* [in] */ pTInfoAfter As *ITypeInfo,
        /* [in] */ pStrName As LPOLESTR) As HRESULT
End Interface

#endif  /* __ITypeChangeEvents_INTERFACE_DEFINED__ */


#ifndef __IErrorInfo_INTERFACE_DEFINED__
#define __IErrorInfo_INTERFACE_DEFINED__

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

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

Dim IID_IErrorInfo = [&h1CF2B120, &h547D, &h101B, [&h8E, &h65, &h08, &h00, &h2B, &h2B, &hD1, &h19]] As IID

Interface IErrorInfo
    Inherits IUnknown

    Function GetGUID(
        /* [out] */ ByRef guid As GUID) As HRESULT
    Function GetSource(
        /* [out] */ ByRef BstrSource As BSTR) As HRESULT
    Function GetDescription(
        /* [out] */ ByRef BstrDescription As BSTR) As HRESULT
    Function GetHelpFile(
        /* [out] */ ByRef BstrHelpFile As BSTR) As HRESULT
    Function GetHelpContext(
        /* [out] */ ByRef dwHelpContext As DWord) As HRESULT
End Interface

#endif  /* __IErrorInfo_INTERFACE_DEFINED__ */


#ifndef __ICreateErrorInfo_INTERFACE_DEFINED__
#define __ICreateErrorInfo_INTERFACE_DEFINED__

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

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

Dim IID_ICreateErrorInfo = [&h22F03340, &h547D, &h101B, [&h8E, &h65, &h08, &h00, &h2B, &h2B, &hD1, &h19]] As IID

Interface ICreateErrorInfo
    Inherits IUnknown

    Function SetGUID(
        /* [in] */ ByRef rguid As GUID) As HRESULT
    Function SetSource(
        /* [in] */ szSource As LPOLESTR) As HRESULT
    Function SetDescription(
        /* [in] */ szDescription As LPOLESTR) As HRESULT
    Function SetHelpFile(
        /* [in] */ szHelpFile As LPOLESTR) As HRESULT
    Function SetHelpContext(
        /* [in] */ dwHelpContext As DWord) As HRESULT
End Interface

#endif  /* __ICreateErrorInfo_INTERFACE_DEFINED__ */


#ifndef __ISupportErrorInfo_INTERFACE_DEFINED__
#define __ISupportErrorInfo_INTERFACE_DEFINED__

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

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

Dim IID_ISupportErrorInfo = [&hDF0B3D60, &h548F, &h101B, [&h8E, &h65, &h08, &h00, &h2B, &h2B, &hD1, &h19]] As IID

Interface ISupportErrorInfo
    Inherits IUnknown

    Function InterfaceSupportsErrorInfo(
        /* [in] */ ByRef riid As IID) As HRESULT
End Interface

#endif  /* __ISupportErrorInfo_INTERFACE_DEFINED__ */


#ifndef __ITypeFactory_INTERFACE_DEFINED__
#define __ITypeFactory_INTERFACE_DEFINED__

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

Dim IID_ITypeFactory = [&h0000002E, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID

Interface ITypeFactory
    Inherits IUnknown

    Function CreateFromTypeInfo(
        /* [in] */ pTypeInfo As *ITypeInfo,
        /* [in] */ ByRef riid As IID,
        /* [iid_is][out] */ ByRef pv As *IUnknown) As HRESULT
End Interface

#endif  /* __ITypeFactory_INTERFACE_DEFINED__ */


#ifndef __ITypeMarshal_INTERFACE_DEFINED__
#define __ITypeMarshal_INTERFACE_DEFINED__

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

Dim IID_ITypeMarshal = [&h0000002D, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID

Interface ITypeMarshal
    Inherits IUnknown

    Function Size(
        /* [in] */ pvType As VoidPtr,
        /* [in] */ dwDestContext As DWord,
        /* [in] */ pvDestContext As VoidPtr,
        /* [out] */ ByRef Size As DWord) As HRESULT
    Function Marshal(
        /* [in] */ pvType As VoidPtr,
        /* [in] */ dwDestContext As DWord,
        /* [in] */ pvDestContext As VoidPtr,
        /* [in] */ cbBufferLength As DWord,
        /* [out] */ pBuffer As *Byte,
        /* [out] */ ByRef cbWritten As DWord) As HRESULT
    Function Unmarshal(
        /* [out] */ pvType As VoidPtr,
        /* [in] */ dwFlags As DWord,
        /* [in] */ cbBufferLength As DWord,
        /* [in] */ pBuffer As *Byte,
        /* [out] */ ByRef cbRead As DWord) As HRESULT
    Function Free(
        /* [in] */ pvType As VoidPtr) As HRESULT
End Interface

#endif  /* __ITypeMarshal_INTERFACE_DEFINED__ */


#ifndef __IRecordInfo_INTERFACE_DEFINED__
#define __IRecordInfo_INTERFACE_DEFINED__

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

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

Dim IID_IRecordInfo = [&h0000002F, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID

Interface IRecordInfo
    Inherits IUnknown

    Function RecordInit(
        /* [out] */ pvNew As VoidPtr) As HRESULT
    Function RecordClear(
        /* [in] */ pvExisting As VoidPtr) As HRESULT
    Function RecordCopy(
        /* [in] */ pvExisting As VoidPtr,
        /* [out] */ pvNew As VoidPtr) As HRESULT
    Function GetGuid(
        /* [out] */ ByRef guid As GUID) As HRESULT
    Function GetName(
        /* [out] */ ByRef bstrName As BSTR) As HRESULT
    Function GetSize(
        /* [out] */ ByRef cbSize As DWord) As HRESULT
    Function GetTypeInfo(
        /* [out] */ ByRef pTypeInfo As *ITypeInfo) As HRESULT
    Function GetField(
        /* [in] */ pvData As VoidPtr,
        /* [in] */ szFieldName As LPCOLESTR,
        /* [out] */ ByRef varField As VARIANT) As HRESULT
    Function GetFieldNoCopy(
        /* [in] */ pvData As VoidPtr,
        /* [in] */ szFieldName As LPCOLESTR,
        /* [out] */ ByRef varField As VARIANT,
        /* [out] */ ByRef pvDataCArray As VoidPtr) As HRESULT
    Function PutField(
        /* [in] */ wFlags As DWord,
        /* [out][in] */ pvData As VoidPtr,
        /* [in] */ szFieldName As LPCOLESTR,
        /* [in] */ ByRef varField As VARIANT) As HRESULT
    Function PutFieldNoCopy(
        /* [in] */ wFlags As DWord,
        /* [out][in] */ pvData As VoidPtr,
        /* [in] */ szFieldName As LPCOLESTR,
        /* [in] */ ByRef varField As VARIANT) As HRESULT
    Function GetFieldNames(
        /* [out][in] */ ByRef cNames As DWord,
        /* [length_is][size_is][out] */ rgBstrNames As *BSTR) As HRESULT
    Function IsMatchingType(
        /* [in] */ pRecordInfo As *IRecordInfo) As BOOL
    Function RecordCreate() As VoidPtr
    Function RecordCreateCopy(
        /* [in] */ pvSource As VoidPtr,
        /* [out] */ ByRef pvDest As VoidPtr) As HRESULT
    Function RecordDestroy(
        /* [in] */ pvRecord As VoidPtr) As HRESULT
End Interface

#endif  /* __IRecordInfo_INTERFACE_DEFINED__ */


#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