.版本 2
.子程序 取注册项_, 字节集, 公开
.参数 根目录, 整数型, , 1、#根类； 2、#现行设置； 3、#现行用户； 4、#本地机器； 5、#所有用户。
.参数 全路径, 文本型
.参数 键名, 文本型
.参数 类型, 整数型, , 1、REG_SZ 2、REG_EXPAND_SZ 3、REG_BINARY 4、REG_DWORD 5、REG_MULTI_SZ
.局部变量 句柄, 整数型
.局部变量 返回值, 字节集
.局部变量 长度, 整数型
.局部变量 b, 整数型
RegOpenKey (多项选择 (根目录, 2147483648, 2147483653, 2147483649, 2147483650, 2147483651), 全路径, 句柄)
b ＝ RegQueryValueEx (句柄, 键名, 0, 类型, 返回值, 长度)
返回值 ＝ 取空白字节集 (长度)
b ＝ RegQueryValueEx (句柄, 键名, 0, 类型, 返回值, 长度)
RegCloseKey (句柄)
.如果真 (b ＝ 0)
返回 (返回值)
.如果真结束
返回 ({ })
.子程序 取文本注册项_, 文本型, 公开, 适用于REG_SZ
.参数 根目录, 整数型, , 1、#根类； 2、#现行设置； 3、#现行用户； 4、#本地机器； 5、#所有用户。
.参数 全路径, 文本型, , SOFTWARE
.参数 键名, 文本型, , SOFTWARE\123 输入123
.参数 类型, 整数型, , 1、REG_SZ 2、REG_EXPAND_SZ 3、REG_BINARY 4、REG_DWORD 5、REG_MULTI_SZ
返回 (到文本 (子字节集替换 (取注册项_ (根目录, 全路径, 键名, 类型), { 0 }, { 13, 10 }, , )))
.子程序 取数值注册项_, 整数型, 公开, 适用于REG_DWORD,
.参数 根目录, 整数型, , 1、#根类； 2、#现行设置； 3、#现行用户； 4、#本地机器； 5、#所有用户。
.参数 全路径, 文本型, , SOFTWARE
.参数 键名, 文本型, , SOFTWARE\123 输入123
.参数 类型, 整数型, , 1、REG_SZ 2、REG_EXPAND_SZ 3、REG_BINARY 4、REG_DWORD 5、REG_MULTI_SZ
返回 (取字节集数据 (取注册项_ (根目录, 全路径, 键名, 类型), #整数型, ))
.子程序 写注册表_, 逻辑型, 公开, 可写入1、REG_SZ 2、REG_EXPAND_SZ 3、REG_BINARY 4、REG_DWORD 5、REG_MULTI_SZ
.参数 根目录, 整数型, , 1、#根类； 2、#现行设置； 3、#现行用户； 4、#本地机器； 5、#所有用户。
.参数 全路径, 文本型, 参考 可空
.参数 注册项名, 文本型, 参考 可空
.参数 注册表类型, 整数型, , 1、REG_SZ 2、REG_EXPAND_SZ 3、REG_BINARY 4、REG_DWORD 5、REG_MULTI_SZ
.参数 欲写入数据, 字节集, 参考
.局部变量 句柄, 整数型
.局部变量 BoolRet, 逻辑型
.如果真 (根目录 ＜ 1 或 根目录 ＞ 5)
返回 (假)
.如果真结束
RegOpenKey (多项选择 (根目录, 2147483648, 2147483653, 2147483649, 2147483650, 2147483651), 全路径, 句柄)
BoolRet ＝ _写字节集注册表 (句柄, 注册项名, 0, 注册表类型, 欲写入数据, 取字节集长度 (欲写入数据)) ＝ 0
RegCloseKey (句柄)
返回 (BoolRet)
