遍历注册表_x64 & x86

逆神者一方

看论坛的注册表遍历不多，易资源网到有个枚举注册表，但对于64位注册表无效，于是查资料自己写了个，调用了精易模块，任意版本即可，打包了最新模块。
研究经验：win32程序在64位系统操作注册表时会有文件系统重定向特性，导致一些操作失败，调用的RegEnumKeyExA有个标志参，传入64位标志即可对64位操作；RegEnumKeyExA应该是可以用做32位的，我电脑是64位，就没有做32位的测试，所以就直接给32位用了RegEnumKeyA。

===================================================================================
---新加入 读注册表文本 就不换附件了，自行加入即可---

  

子程序名	返回值类型	公开	备 注
读注册表文本	文本型
参数名	类 型	参考	可空	数组	备 注
根键	整数型				#HKEY_
文本参数	文本型
项名称	文本型

变量名	类 型	静态	数组	备 注
注册表句柄	整数型
缓冲区_字节集	字节集
dwSize	整数型
lpData	字节集
文本型	文本型
是否成功	整数型

判断 (系统_取位数 ())
是否成功 ＝ 打开注册表_Ex (根键, 文本参数, 0, 131353, 注册表句柄)
是否成功 ＝ 打开注册表 (根键, 到字节集 (文本参数) ＋ { 0 }, 注册表句柄)
如果真 (是否成功 ＝ #ERROR_SUCCESS )
dwSize ＝ 1024
lpData ＝ 取空白字节集 (1024)
如果真 (读注册表内容 (注册表句柄, 项名称, 0, 0, lpData, dwSize) ＝ 0)
文本型 ＝ 到文本 (lpData)
关闭注册表 (注册表句柄)
返回 (文本型)

i支持库列表	支持库注释
const	(未知支持库)

.版本 2<br /> .支持库 const<br /> <br /> .子程序 读注册表文本, 文本型<br /> .参数 根键, 整数型, , #HKEY_<br /> .参数 文本参数, 文本型<br /> .参数 项名称, 文本型<br /> .局部变量 注册表句柄, 整数型<br /> .局部变量 缓冲区_字节集, 字节集<br /> .局部变量 dwSize, 整数型<br /> .局部变量 lpData, 字节集<br /> .局部变量 文本型, 文本型<br /> .局部变量 是否成功, 整数型<br /> <br /> .判断开始 (系统_取位数 ())<br />     是否成功 ＝ 打开注册表_Ex (根键, 文本参数, 0, 131353, 注册表句柄)<br /> .默认<br />     是否成功 ＝ 打开注册表 (根键, 到字节集 (文本参数) ＋ { 0 }, 注册表句柄)<br /> .判断结束<br /> .如果真 (是否成功 ＝ #ERROR_SUCCESS)<br />     dwSize ＝ 1024<br />     lpData ＝ 取空白字节集 (1024)<br />     .如果真 (读注册表内容 (注册表句柄, 项名称, 0, 0, lpData, dwSize) ＝ 0)<br />         文本型 ＝ 到文本 (lpData)<br />     .如果真结束<br />     关闭注册表 (注册表句柄)<br /> .如果真结束<br /> 返回 (文本型)

---我是小分割线---

.版本 2

.DLL命令 读注册表内容, 整数型, "advapi32", "RegQueryValueExA", 公开, 注册表_取注册表值数据
    .参数 hKey, 整数型
    .参数 lpValueName, 文本型
    .参数 lpReserved, 整数型
    .参数 lpType, 整数型, 传址
    .参数 lpData, 字节集
    .参数 lpcbData, 整数型, 传址

========---我是华丽的大分割线---========

伐木堆0

谢谢大佬分享

BruceJoysky1987

常量接收失败，无法使用TnT

1485738277

666666666666666666

小勇想学易语言

66666666666666

myogoo

", 公开, 注册表_取注册表值数据

唐双祁

66666666666666666

wolfpack

yuzhong

1111111111111111111111111111111111111111111

year1970

感谢分享