注册表操作EX，枚举键信息有问题，附修复代码

凌哥

坑爹，纠结了我一个月的东西竟然是精易模块的BUG，mlgb...

凌哥

萧阳天 发表于 2016-7-24 15:49

键值呢......

萧阳天

剧终太快上演ゞ 发表于 2016-7-23 04:48
@萧阳天 最新发现，那个缓寸 需要在循环中赋值，否则会出错的。。。

1. .版本 2
   
2. 
   
3. .子程序 枚举键信息Ex, 整数型, 公开, 枚举指定项名称下的键信息(成功返回键名数,失败返回-1),需要先调用打开键Ex或打开键Ex2
   
4. .参数 键根目录, 整数型, , #HKEY_*开头的常量
   
5. .参数 全路径注册项名, 文本型, , 完整的键路径,不包括"HKEY_*" 例如:SOFTWARE\Test
   
6. .参数 注册表键信息, 注册表_键, 参考 数组, 作为返回值返回
   
7. .局部变量 局_计次, 整数型
   
8. .局部变量 局_键值缓冲区, 整数型
   
9. .局部变量 局_句柄
   
10. .局部变量 临时_注册表键信息, 注册表_键
    
11. 
    
12. .如果真 (m_当前键目录 ≠ 键根目录 或 m_当前键 ≠ 全路径注册项名)
    
13.     局_句柄 ＝ 打开键Ex (键根目录, 全路径注册项名)
    
14.     .如果真 (局_句柄 ＝ -1)
    
15.         返回 (m_Error)
    
16.     .如果真结束
    
17.     清除数组 (注册表键信息)
    
18. .如果真结束
    
19. 临时_注册表键信息.键名称 ＝ 取空白文本 (256)
    
20. .判断循环首 (局_句柄 ≠ 0)
    
21.     API_RegEnumValue (m_键句柄, 局_计次, 临时_注册表键信息.键名称, 256, 0, 临时_注册表键信息.类型, 临时_注册表键信息.键值, 局_键值缓冲区)
    
22.     临时_注册表键信息.键值 ＝ 取空白字节集 (局_键值缓冲区)
    
23.     m_Error ＝ API_RegEnumValue (m_键句柄, 局_计次, 临时_注册表键信息.键名称, 256, 0, 临时_注册表键信息.类型, 临时_注册表键信息.键值, 局_键值缓冲区)
    
24.     .如果 (m_Error ＝ 0)
    
25.         加入成员 (注册表键信息, 临时_注册表键信息)
    
26.     .否则
    
27.         跳出循环 ()
    
28.     .如果结束
    
29.     局_计次 ＝ 局_计次 ＋ 1
    
30. .判断循环尾 ()
    
31. .如果真 (m_Error ＝ #ERROR_NO_MORE_ITEMS)
    
32.     m_Error ＝ 0
    
33. .如果真结束
    
34. 返回 (取数组成员数 (注册表键信息))
    

复制代码

凌哥

@萧阳天 最新发现，那个缓寸 需要在循环中赋值，否则会出错的。。。

w839558403

谢谢 学习下

296365778

谢谢 学习下

296365778

谢谢 学习啦

18242362270

表示看不懂...