易语言注册表禁止程序运行

系统结构:加入注册表,列出禁止的项目,打开注册表项_,枚举键值,枚举子键,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 加入注册表
           |  |
           |  |------ _超级列表框1_右键单击表项
           |  |
           |  |------ _删除_被选择
           |  |
           |  |------ 列出禁止的项目
           |  |
           |  |------ _允许运行_被选择
           |  |
           |  |------ _禁止运行_被选择
           |  |
           |  |------ _置顶_被选择
           |  |
           |  |------ _关于_被选择
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _窗口1_鼠标左键被放开
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   打开注册表项_
           |  |
           |  |---[dll]------   枚举键值
           |  |
           |  |---[dll]------   枚举子键

调用的DLL命令:

.DLL命令 打开注册表项_, 整数型, "advapi32.dll", "RegOpenKeyA"
    .参数 标准项名或句柄, 整数型, , hKey，一个已打开项的句柄，或指定一个标准项名
    .参数 项名, 文本型, , lpSubKey，要打开的项名
    .参数 打开注册表项句柄, 整数型, 传址, phkResult，指定一个变量，用于装载（保存）打开注册表项的一个句柄

.DLL命令 枚举键值, 整数型, , "RegEnumValueA", , 零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 句柄, 整数型, , 一个已打开项的句柄，或者指定一个标准项名
    .参数 表项索引, 整数型, , 欲获取值的索引。注意第一个值的索引编号为零
    .参数 子键名, 文本型, , 用于装载位于指定索引处值名的一个缓冲区
    .参数 子键长度, 整数型, 传址, 用于装载lpValueName缓冲区长度的一个变量。一旦返回，它会设为实际载入缓冲区的字符数量
    .参数 lpReserved, 整数型, , 未用设为零
    .参数 键值类型, 整数型, , 值的类型，用于装载值的类型代码的变量
    .参数 键值数据, 字节集, , 用于装载值数据的一个缓冲区
    .参数 键值缓寸, 整数型, 传址, 用于装载lpData缓冲区长度的一个变量。一旦返回，它会设为实际载入缓冲区的字符数量

.DLL命令 枚举子键, 整数型, , "RegEnumKeyA", , 零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码。在Win32环境中应使用RegEnumKeyEx.用RegQueryInfoKey判断容纳最长那个项所需的缓冲区长度
    .参数 句柄, 整数型, , 一个已打开项的句柄，或者指定一个标准项名
    .参数 表项索引, 整数型, , 欲获取的子项的索引。第一个子项的索引编号为零
    .参数 子键名, 文本型, , 用于装载指定索引处项名的一个缓冲区
    .参数 子键长度, 整数型, 传址, lpName(子键名)缓冲区的长度