易语言文件枚举实例源码

系统结构:枚举文件1,枚举文件2,取值,枚举文件3,枚举文件4,取变量数据地址_文本型,API枚举线程,Push,PopN,Pop0,Count,SendMessage_Str,FindFirstFileA,FindClose,FindNextFileA,SendMessage_Long,GetInputState,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 枚举文件1
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ 枚举文件2
           |  |
           |  |------ 取值
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ 枚举文件3
           |  |
           |  |------ _寻找文件
           |  |
           |  |------ _按钮5_被单击
           |  |
           |  |------ 枚举文件4
           |  |
           |  |------ 取变量数据地址_文本型
           |  |
           |  |------ API枚举线程
           |  |
           |  |
======TxtStack
           |  |
           |  |------ Push
           |  |
           |  |------ PopN
           |  |
           |  |------ Pop0
           |  |
           |  |------ Count
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SendMessage_Str
           |  |
           |  |---[dll]------   FindFirstFileA
           |  |
           |  |---[dll]------   FindClose
           |  |
           |  |---[dll]------   FindNextFileA
           |  |
           |  |---[dll]------   SendMessage_Long
           |  |
           |  |---[dll]------   GetInputState

调用的DLL命令:

.DLL命令 SendMessage_Str, 整数型, "user32", "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 文本型, 传址

.DLL命令 FindFirstFileA, 整数型, "kernel32.dll", "FindFirstFileA"
    .参数 文件名, 文本型, , lpFileName，欲搜索的文件名
    .参数 文件信息, WIN32_FIND_DATA, , lpFindFileData，参见相关帮助

.DLL命令 FindClose, 整数型, "kernel32.dll", "FindClose", , , FindClose,关闭由FindFirstFile函数创建的一个搜索句柄
    .参数 搜索句柄, 整数型, , hFindFile，由FindFirstFile函数提供的搜索句柄

.DLL命令 FindNextFileA, 整数型, "kernel32.dll", "FindNextFileA"
    .参数 搜索句柄, 整数型, , hFindFile，参见相关帮助
    .参数 文件有关信息, WIN32_FIND_DATA, , lpFindFileData，参见相关帮助

.DLL命令 SendMessage_Long, 整数型, "user32", "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 GetInputState, 整数型, "user32.dll", "GetInputState"