易语言FSO应用源码,易语言枚举对象应用模块源码

易语言枚举对象应用模块源码

系统结构:Each,GetIndex,取对象枚举接口,枚举,重置,跳到,重新获取,Next,Skip,Reset,MultiByteToWideChar,动态调用子程序_API,

======窗口程序集1
| |
| |------ __启动窗口_创建完毕
| |
| |------ _枚举_被单击
======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ Each
| |
| |------ _Each
| |
| |------ _Exit
| |
| |------ GetIndex
| |
| |------ 取对象枚举接口
| |
| |------ 枚举
| |
| |------ 重置
| |
| |------ 跳到
| |
| |------ 重新获取
| |
| |
======CallInterface
| |
| |------ Next
| |
| |------ Skip
| |
| |------ Reset
| |
| |
======调用的Dll
| |
| |---[dll]------ MultiByteToWideChar
| |
| |---[dll]------ 动态调用子程序_API
| |
| |---[dll]------ _ObjectToThis
| |
| |---[dll]------ _Int32
| |
| |---[dll]------ _VarPtr
| |
| |---[dll]------ _ObjPtr

调用的DLL命令:

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

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

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

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

.DLL命令 _VarPtr, 整数型, , "lstrcatA"
.参数 lpString1, 变体型, 传址
.参数 lpString2, 整数型, 传址

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