系统结构:
路径取图标索引,添加文件,打开压缩文件,文件大小转换,清空超级列表框,压缩文件,解压缩文件,测试压缩包,ArchiverProc,解压并打开选中文件,删除选中表项子程序,文件_关联,文件_取关联,重建图标缓存,是否为目录,调列宽,关联文件,超级列表框_查找并定位,SHChangeNotify,SendMessage,取文件属性_,SendMessageA_整数,
======程序集1
| |
| |------ _启动子程序
| |
| |
======窗口程序集_启动窗口
| |
| |------ _启动窗口_创建完毕
| |
| |------ _拖放对象1_得到文件
| |
| |------ 路径取图标索引
| |
| |------ 添加文件
| |
| |------ 打开压缩文件
| |
| |------ 文件大小转换
| |
| |------ 清空超级列表框
| |
| |------ 压缩文件
| |
| |------ 解压缩文件
| |
| |------ 测试压缩包
| |
| |------ ArchiverProc
| |
| |------ _打开压缩包_被选择
| |
| |------ _退出_被选择
| |
| |------ _设置_被选择
| |
| |------ _启动窗口_尺寸被改变
| |
| |------ _工具条1_被单击
| |
| |------ 解压并打开选中文件
| |
| |------ _超级列表框1_被双击
| |
| |------ _解压选中_被选择
| |
| |------ _移除文件_被选择
| |
| |------ 删除选中表项子程序
| |
| |------ _超级列表框1_右键单击表项
| |
| |
======功能程序集
| |
| |------ 文件_关联
| |
| |------ 文件_取关联
| |
| |------ 重建图标缓存
| |
| |------ 是否为目录
| |
| |------ 调列宽
| |
| |
======窗口程序集_设置窗口
| |
| |------ _设置窗口_创建完毕
| |
| |------ _选择框1_被单击
| |
| |------ 关联文件
| |
| |------ _选择框2_被单击
| |
| |------ _选择框3_被单击
| |
| |------ _滑块条1_位置被改变
| |
| |------ _设置窗口_将被销毁
| |
| |------ _选择框4_被单击
| |
| |------ _选择框5_被单击
| |
| |
======窗口程序集_查找对话框
| |
| |------ _按钮1_被单击
| |
| |------ 超级列表框_查找并定位
| |
| |------ _编辑框1_按下某键
| |
| |
======调用的Dll
| |
| |---[dll]------ SHChangeNotify
| |
| |---[dll]------ SendMessage
| |
| |---[dll]------ 取文件属性_
| |
| |---[dll]------ SendMessageA_整数
.版本 2
.DLL命令 SHChangeNotify, , "shell32", "SHChangeNotify", 公开, 刷新关联图标
.参数 SHCNE_ASSOCCHANGED, 整数型, , 134217728
.参数 SHCNF_IDLIST, 整数型, , 0
.参数 nil, 整数型, , 0
.参数 nil, 整数型, , 0
.DLL命令 SendMessage, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数,将一条消息发给那个窗口。除非消息处理完毕,否则该函数不会返回。SendMessageBynum, ; SendMessageByString是该函数的“类型security”声明形式 由具体的消息决定
.参数 hwnd, 整数型, , 要接收消息的那个窗口的句柄
.参数 wMsg, 整数型, , 消息的标识符
.参数 wParam, 整数型, , 具体取决于消息
.参数 lParam, 整数型, , 具体取决于消息;
.DLL命令 取文件属性_, 整数型, "kernel32", "GetFileAttributesA", 公开, 1、#只读文件; 2、#隐藏文件; 4、#系统文件; 16、#子目录;32、#存档文件 要判断是否设置了某个属性,在返回值与想要得知的属性值之间使用“位与”命令进行比较。如果所得的结果不为零,则表示设置了这个属性值。如果取文件属性失败,将返回 -1。
.参数 文件名, 文本型
.DLL命令 SendMessageA_整数, 整数型, "user32", "SendMessageA", 公开
.参数 hwnd, 整数型
.参数 消息号, 整数型, , 消息的标识符
.参数 参数一, 整数型, , 具体取决于消息
.参数 参数二, 整数型, , 具体取决于消息