易语言家园垃圾清理源码

系统结构:扫描,枚举注册表,还原文本,结束扫描,删除_,删除注册项_,清理,检查更新,搜索,打开表项,枚举键值,关闭键句柄,删除指定注册表项_,创建事件同步对象,打开事件同步对象,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _树型框1_检查框状态被改变
           |  |
           |  |------ _超级链接框2_鼠标左键被放开
           |  |
           |  |------ _超级链接框1_鼠标左键被放开
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _多功能条1_位置被改变
           |  |
           |  |------ 扫描
           |  |
           |  |------ 枚举注册表
           |  |
           |  |------ 还原文本
           |  |
           |  |------ _超级链接框3_鼠标左键被放开
           |  |
           |  |------ 结束扫描
           |  |
           |  |------ _超级链接框4_鼠标左键被按下
           |  |
           |  |------ 删除_
           |  |
           |  |------ 删除注册项_
           |  |
           |  |------ 清理
           |  |
           |  |------ __启动窗口_首次激活
           |  |
           |  |------ 检查更新
           |  |
           |  |------ 搜索
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   打开表项
           |  |
           |  |---[dll]------   枚举键值
           |  |
           |  |---[dll]------   关闭键句柄
           |  |
           |  |---[dll]------   删除指定注册表项_
           |  |
           |  |---[dll]------   创建事件同步对象
           |  |
           |  |---[dll]------   打开事件同步对象

调用的DLL命令:

.DLL命令 打开表项, 整数型, , "RegOpenKeyA", , 零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 父键句柄, 整数型, , 一个已打开项的句柄，或指定一个标准项名
    .参数 表项名, 文本型, , 欲打开注册表项的名字
    .参数 键句柄, 整数型, 传址, 用于装载打开项的名字的一个变量

.DLL命令 枚举键值, 整数型, , "RegEnumValueA"
    .参数 句柄, 整数型
    .参数 表项索引, 整数型
    .参数 子键名, 文本型
    .参数 子键长度, 整数型, 传址
    .参数 lpReserved, 整数型, , 未用设为零
    .参数 键值类型, 整数型, , 值的类型
    .参数 键值数据, 字节集
    .参数 键值缓寸, 整数型, 传址

.DLL命令 关闭键句柄, 整数型, , "RegCloseKey"
    .参数 句柄, 整数型

.DLL命令 删除指定注册表项_, 整数型, "advapi32.dll", "RegDeleteKeyA", , RegDeleteKey，零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 标准项名或项句柄, 整数型, , hkey，一个已打开项的句柄，或者标准项名之一
    .参数 删除项的名字, 文本型, , lpsubkey，要删除项的名字。这个项的所有子项也会删除

.DLL命令 创建事件同步对象, , , "CreateEventA"
    .参数 lpEventAttributes, 整数型
    .参数 bManualReset, 逻辑型
    .参数 bInitialState, 逻辑型
    .参数 lpName, 文本型

.DLL命令 打开事件同步对象, 整数型, , "OpenEventA"
    .参数 dwDesiredAccess, 整数型
    .参数 bInheritHandle, 逻辑型
    .参数 lpName, 文本型