注册表所有类型读写增强模块应用

键数 ＝ 枚举子键值 (组合框1.取项目数值 (组合框1.现行选中项), 全路径项名 ＋ 列表框1.取项目文本 (列表框1.现行选中项), 键值)
超级列表框1.全部删除 ()
.计次循环首 (键数, i)
.如果真 (键值 [i].键名 ＝ “”)
键值 [i].键名 ＝ “(默认)”
.如果真结束
a ＝ 超级列表框1.插入表项 (, 键值 [i].键名, , , , )
超级列表框1.置标题 (a, 1, 键值 [i].键值)
.计次循环尾 ()

子项 ＝ 枚举子项 (组合框1.取项目数值 (组合框1.现行选中项), 全路径项名)
列表框1.清空 ()
文本 ＝ 分割文本 (子项, “;”, )
.计次循环首 (取数组成员数 (文本), i)
列表框1.加入项目 (文本 [i], )
.计次循环尾 ()

.子程序 枚举子键值, 整数型, 公开,
.参数 根目录, 整数型, , 1:HKEY_CLASSES_ROOT，2:HKEY_CURRENT_CONFIG，3:HKEY_CURRENT_USER，4:HKEY_LOCAL_MACHINE，5:HKEY_USERS。
.参数 项名, 文本型, , 全路径注册项名
.参数 键值, 键数据, 传址,数组,, 成功返回子键数。调用前设置一“键数据”数据类型的数组变量，调用后从该数组变量中分别取得键名和键值。