易语言对象枚举源码

系统结构:枚举对象,EnumITypeInfo,EnumObj,CreateInstance,CallInstanceMethod,ToCLSID,A2W,W2A,QueryInterface,AddRef,Release,GetTypeInfoCount,GetTypeInfo,GetIDsOfNames,Invoke,GetTypeAttr,GetTypeComp,GetFuncDesc,GetVarDesc,GetNames,GetRefTypeOfImplType,GetImplTypeFlags,GetIDsOfNames,Invoke,GetDocumentation,GetDllEntry,GetRefTypeInfo,AddressOfMember,CreateInstance,GetMops,GetContainingTypeLib,ReleaseTypeAttr,ReleaseFuncDesc,ReleaseVarDesc,发送消息_,To_TYPEATTR,To_FUNCDESC,To_ELEMDESC,To_VARDESC,CLSIDFromProgID,MultiByteToWideChar,CoCreateInstance,动态调用子程序_API,LoadTypeLib,WideCharToMultiByte,CLSIDFromString,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _列表框1_列表项被选择
           |  |
           |  |------ 枚举对象
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮5_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _组合框_编辑内容被改变
           |  |
           |  |------ _组合框_字符输入
           |  |
           |  |
======程序集1
           |  |
           |  |------ EnumITypeInfo
           |  |
           |  |------ EnumObj
           |  |
           |  |------ CreateInstance
           |  |
           |  |------ CallInstanceMethod
           |  |
           |  |------ _ToDword
           |  |
           |  |------ ToCLSID
           |  |
           |  |------ A2W
           |  |
           |  |------ W2A
           |  |
           |  |
======IUnknown
           |  |
           |  |------ QueryInterface
           |  |
           |  |------ AddRef
           |  |
           |  |------ Release
           |  |
           |  |
======IDispatch
           |  |
           |  |------ GetTypeInfoCount
           |  |
           |  |------ GetTypeInfo
           |  |
           |  |------ GetIDsOfNames
           |  |
           |  |------ Invoke
           |  |
           |  |
======ITypeInfo
           |  |
           |  |------ GetTypeAttr
           |  |
           |  |------ GetTypeComp
           |  |
           |  |------ GetFuncDesc
           |  |
           |  |------ GetVarDesc
           |  |
           |  |------ GetNames
           |  |
           |  |------ GetRefTypeOfImplType
           |  |
           |  |------ GetImplTypeFlags
           |  |
           |  |------ GetIDsOfNames
           |  |
           |  |------ Invoke
           |  |
           |  |------ GetDocumentation
           |  |
           |  |------ GetDllEntry
           |  |
           |  |------ GetRefTypeInfo
           |  |
           |  |------ AddressOfMember
           |  |
           |  |------ CreateInstance
           |  |
           |  |------ GetMops
           |  |
           |  |------ GetContainingTypeLib
           |  |
           |  |------ ReleaseTypeAttr
           |  |
           |  |------ ReleaseFuncDesc
           |  |
           |  |------ ReleaseVarDesc
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   发送消息_
           |  |
           |  |---[dll]------   To_TYPEATTR
           |  |
           |  |---[dll]------   To_FUNCDESC
           |  |
           |  |---[dll]------   To_ELEMDESC
           |  |
           |  |---[dll]------   To_VARDESC
           |  |
           |  |---[dll]------   CLSIDFromProgID
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   CoCreateInstance
           |  |
           |  |---[dll]------   _ObjectToThis
           |  |
           |  |---[dll]------   _OBJ
           |  |
           |  |---[dll]------   _Bin
           |  |
           |  |---[dll]------   _Int32
           |  |
           |  |---[dll]------   _Int32Ary
           |  |
           |  |---[dll]------   动态调用子程序_API
           |  |
           |  |---[dll]------   LoadTypeLib
           |  |
           |  |---[dll]------   WideCharToMultiByte
           |  |
           |  |---[dll]------   CLSIDFromString

调用的DLL命令:

.DLL命令 发送消息_, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式  由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 文本型, , 具体取决于消息;

.DLL命令 To_TYPEATTR, , , "RtlMoveMemory"
    .参数 Destination, TYPEATTR, 传址
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 To_FUNCDESC, , , "RtlMoveMemory"
    .参数 Destination, FUNCDESC, 传址
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 To_ELEMDESC, , , "RtlMoveMemory"
    .参数 Destination, ELEMDESC, 传址
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 To_VARDESC, , , "RtlMoveMemory"
    .参数 Destination, VARDESC, 传址
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 CLSIDFromProgID, 整数型, "Ole32.dll"
    .参数 lpszProgID, 字节集
    .参数 pclsid, 字节集

.DLL命令 MultiByteToWideChar, 整数型
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 文本型, 传址
    .参数 cbMultiByte, 整数型
    .参数 lpWideCharStr, 字节集, 传址
    .参数 cchWideChar, 整数型

.DLL命令 CoCreateInstance, 整数型, "ole32.dll"
    .参数 rclsid, 字节集
    .参数 pUnkOuter, 整数型
    .参数 dwClsContext, 整数型
    .参数 riid, 字节集
    .参数 ppv, 对象, 传址

.DLL命令 _ObjectToThis, 整数型, , "RtlMoveMemory"
    .参数 Destination, 整数型, 传址
    .参数 Source, 对象, 传址
    .参数 Length, 整数型

.DLL命令 _OBJ, 整数型, , "lstrcatA"
    .参数 lpString1, 对象, 传址
    .参数 lpString2, 整数型, 传址

.DLL命令 _Bin, 整数型, , "lstrcatA"
    .参数 lpString1, 字节集, 传址
    .参数 lpString2, 整数型, 传址

.DLL命令 _Int32, 整数型, , "lstrcatA"
    .参数 lpString1, 整数型, 传址
    .参数 lpString2, 整数型, 传址

.DLL命令 _Int32Ary, 整数型, , "lstrcatA"
    .参数 lpString1, 整数型, 传址 数组
    .参数 lpString2, 整数型, 传址

.DLL命令 动态调用子程序_API, 整数型, , "CallWindowProcA"
    .参数 动态调用代码, 字节集, , 一定要用本人编写的
    .参数 子程序, 整数型, , 子程序指针
    .参数 参数, 整数型, 数组, 为整数数组，参数1为成员1…类推；文本型和字节集型（自定义结构）为指针
    .参数 参数数目, 整数型, , 一定要和参数数组相符，不然会出错
    .参数 是否C调用, 逻辑型, , 真为cdecl调用方式，假为stdcall调用方式（即标准WINAPI方式）

.DLL命令 LoadTypeLib, 整数型, "oleaut32.dll"
    .参数 szFile, 字节集, 传址
    .参数 pptlib, 对象, 传址

.DLL命令 WideCharToMultiByte, 整数型
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 整数型
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 文本型, 传址
    .参数 cbMultiByte, 整数型
    .参数 lpDefaultChar, 文本型
    .参数 lpUsedDefaultChar, 逻辑型

.DLL命令 CLSIDFromString, 整数型, "ole32.dll"
    .参数 lpsz, 字节集
    .参数 pclsid, 字节集