易语言资源搜索器

系统结构:添加文件,执行拖动任务,查找文件,取顶级窗口句柄,对话框复制文件,关联程序运行,取鼠标坐标,测试虚拟键,取父窗口,FindWindowEx,SendMessageA,SHFileOperation,PathIsDirectoryA,

======易资源搜索器
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_托盘事件
           |  |
           |  |------ _搜索列表_被双击
           |  |
           |  |------ _搜索框_内容被改变
           |  |
           |  |------ _搜索列表_当前表项被改变
           |  |
           |  |------ _开始搜索_被单击
           |  |
           |  |------ 添加文件
           |  |
           |  |------ _浏览_被单击
           |  |
           |  |------ _隐藏_被单击
           |  |
           |  |------ _退出_被单击
           |  |
           |  |------ _搜索列表_鼠标左键被按下
           |  |
           |  |------ _搜索列表_鼠标位置被移动
           |  |
           |  |------ _检测时钟_周期事件
           |  |
           |  |------ 执行拖动任务
           |  |
           |  |
======通用程序集
           |  |
           |  |------ 查找文件
           |  |
           |  |------ 取顶级窗口句柄
           |  |
           |  |------ 对话框复制文件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   关联程序运行
           |  |
           |  |---[dll]------   取鼠标坐标
           |  |
           |  |---[dll]------   测试虚拟键
           |  |
           |  |---[dll]------   取父窗口
           |  |
           |  |---[dll]------   FindWindowEx
           |  |
           |  |---[dll]------   SendMessageA
           |  |
           |  |---[dll]------   SHFileOperation
           |  |
           |  |---[dll]------   PathIsDirectoryA

调用的DLL命令:

.DLL命令 关联程序运行, , "shell32.dll", "ShellExecuteA"
    .参数 句柄, 整数型, , 调用API的窗口句柄
    .参数 操作, 文本型, , 操作符：打开“open”；打印“print”
    .参数 文件名, 文本型, , 欲打开的文件名
    .参数 参数, 文本型, , 运行参数
    .参数 路径, 文本型, , 关联程序的完整路径
    .参数 运行状态, 整数型, , 关联程序的窗口状态

.DLL命令 取鼠标坐标, 整数型, , "GetCursorPos"
    .参数 坐标, 坐标, 传址

.DLL命令 测试虚拟键, 整数型, "user32", "GetAsyncKeyState", , 判断函数调用时指定虚拟键的状态　自对GetAsyncKeyState函数的上一次调用以来，如键已被按过，则位0设为1；否则设为0。如键目前处于按下状态，则位15设为1；如抬起，则为0。微软的win32手册指出：倘若输入焦点从属于与调用函数的输入线程不同的另一个输入线程，则返回值为0（例如，一旦另一个程序拥有焦点，则它应返回零）。证据显示，函数实际是在整个系统的范围内工作的
    .参数 键代码, 整数型, , 欲测试的虚拟键的键码;  

.DLL命令 取父窗口, 整数型, , "GetParent"
    .参数 子窗口句柄, 整数型

.DLL命令 FindWindowEx, 整数型, , "FindWindowExA"
    .参数 hwndParent, 整数型
    .参数 hwndChildAfter, 整数型
    .参数 lpszClass, 文本型
    .参数 lpszWindow, 整数型

.DLL命令 SendMessageA, 整数型, , "SendMessageA"
    .参数 句柄, 整数型
    .参数 消息号, 整数型
    .参数 参数, 整数型
    .参数 参数, 文本型

.DLL命令 SHFileOperation, 整数型, "shell32.dll", "SHFileOperationA", , 执行系统文件对象的操作
    .参数 lpFileOp, SHFILEOPSTRUCT, 传址

.DLL命令 PathIsDirectoryA, 逻辑型, "shlwapi.dll", "PathIsDirectoryA"
    .参数 pszPath, 文本型