精易模块V11.0.0 发布【2023.02.01】

啦啦啦一号

大佬牛逼

wxm0771

天然和而广泛地

opq123

修改了注册表功能的两个地方

  

子程序名	返回值类型	公开	备 注
系统_注册项是否存在W	逻辑型		存在返回真
参数名	类 型	参考	可空	数组	备 注
根目录	整数型				#HKEY_*
全路径注册项名	字节集
值名称	字节集				为空则检查项
是否为64位注册表	逻辑型

变量名	类 型	静态	数组	备 注
hKey	整数型
dwFlags	整数型
lRes	整数型
Data	整数型
cbData	整数型

如果真 (根目录 ＝ 0)
返回 (假)
dwFlags ＝ 位或 (选择 (是否为64位注册表, #KEY_WOW64_64KEY, #KEY_WOW64_32KEY ), #KEY_QUERY_VALUE )
lRes ＝ RegOpenKeyExW (根目录, 全路径注册项名, 0, dwFlags, hKey)
如果真 (lRes ≠ #ERROR_SUCCESS )
输出调试文本 (取错误信息文本_API (lRes))
返回 (假)
如果真 (值名称 ＝ {  } 或 值名称 ＝ { 0, 0 })
返回 (真)
lRes ＝ RegQueryValueExW (hKey, 值名称, #NULL, Data, #NULL, cbData)
RegCloseKey (hKey)
返回 (lRes ＝ #ERROR_SUCCESS )

.版本 2<br /> <br /> .子程序 系统_注册项是否存在W, 逻辑型, 公开, 存在返回真<br /> .参数 根目录, 整数型, , #HKEY_*<br /> .参数 全路径注册项名, 字节集<br /> .参数 值名称, 字节集, , 为空则检查项<br /> .参数 是否为64位注册表, 逻辑型, 可空<br /> .局部变量 hKey, 整数型<br /> .局部变量 dwFlags, 整数型<br /> .局部变量 lRes, 整数型<br /> .局部变量 Data, 整数型<br /> .局部变量 cbData, 整数型<br /> <br /> .如果真 (根目录 ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> dwFlags ＝ 位或 (选择 (是否为64位注册表, #KEY_WOW64_64KEY, #KEY_WOW64_32KEY), #KEY_QUERY_VALUE)<br /> lRes ＝ RegOpenKeyExW (根目录, 全路径注册项名, 0, dwFlags, hKey)<br /> .如果真 (lRes ≠ #ERROR_SUCCESS)<br />     输出调试文本 (取错误信息文本_API (lRes))<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (值名称 ＝ {  } 或 值名称 ＝ { 0, 0 })<br />     返回 (真)<br /> .如果真结束<br /> lRes ＝ RegQueryValueExW (hKey, 值名称, #NULL, Data, #NULL, cbData)<br /> RegCloseKey (hKey)<br /> 返回 (lRes ＝ #ERROR_SUCCESS)

  

子程序名	返回值类型	公开	备 注
系统_删除注册项W	逻辑型		成功返回真
参数名	类 型	参考	可空	数组	备 注
根目录	整数型				#HKEY_*
全路径注册项名	字节集
值名称	字节集				不为空时删除值
是否为64位注册表	逻辑型
以递归方式删除	逻辑型				为假时，有子项则无法删除

变量名	类 型	静态	数组	备 注
hKey	整数型
dwFlags	整数型
lRes	整数型
目标	字节集

如果真 (根目录 ＝ 0)
返回 (假)
dwFlags ＝ 位或 (选择 (是否为64位注册表, #KEY_WOW64_64KEY, #KEY_WOW64_32KEY ), #KEY_WRITE )
如果 (值名称 ≠ {  } 且 值名称 ≠ { 0, 0 })
lRes ＝ RegOpenKeyExW (根目录, 全路径注册项名, 0, dwFlags, hKey)
以递归方式删除 ＝ 假
目标 ＝ 字节集_寻找取左 (全路径注册项名, { 92, 0 }, -1) ＋ { 0, 0 }
lRes ＝ RegOpenKeyExW (根目录, 目标, 0, dwFlags, hKey)
如果真 (lRes ≠ #ERROR_SUCCESS )
输出调试文本 (取错误信息文本_API (lRes, ))
返回 (假)
如果 (以递归方式删除)
目标 ＝ 字节集_寻找取右 (全路径注册项名, { 92, 0 }, -1)
lRes ＝ RegDeleteTreeW (hKey, 目标)
如果 (值名称 ≠ {  } 且 值名称 ≠ { 0, 0 })
lRes ＝ RegDeleteValueW (hKey, 值名称)
目标 ＝ 字节集_寻找取右 (全路径注册项名, { 92, 0 }, -1)
lRes ＝ RegDeleteKeyW (hKey, 目标)

RegCloseKey (hKey)
返回 (lRes ＝ #ERROR_SUCCESS )

.版本 2<br /> <br /> .子程序 系统_删除注册项W, 逻辑型, 公开, 成功返回真<br /> .参数 根目录, 整数型, , #HKEY_*<br /> .参数 全路径注册项名, 字节集<br /> .参数 值名称, 字节集, 可空, 不为空时删除值<br /> .参数 是否为64位注册表, 逻辑型, 可空<br /> .参数 以递归方式删除, 逻辑型, 可空, 为假时，有子项则无法删除<br /> .局部变量 hKey, 整数型<br /> .局部变量 dwFlags, 整数型<br /> .局部变量 lRes, 整数型<br /> .局部变量 目标, 字节集<br /> <br /> .如果真 (根目录 ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> dwFlags ＝ 位或 (选择 (是否为64位注册表, #KEY_WOW64_64KEY, #KEY_WOW64_32KEY), #KEY_WRITE)<br /> .如果 (值名称 ≠ {  } 且 值名称 ≠ { 0, 0 })<br />     lRes ＝ RegOpenKeyExW (根目录, 全路径注册项名, 0, dwFlags, hKey)<br />     以递归方式删除 ＝ 假<br /> .否则<br />     目标 ＝ 字节集_寻找取左 (全路径注册项名, { 92, 0 }, -1) ＋ { 0, 0 }<br />     lRes ＝ RegOpenKeyExW (根目录, 目标, 0, dwFlags, hKey)<br /> .如果结束<br /> .如果真 (lRes ≠ #ERROR_SUCCESS)<br />     输出调试文本 (取错误信息文本_API (lRes, ))<br />     返回 (假)<br /> .如果真结束<br /> .如果 (以递归方式删除)<br />     目标 ＝ 字节集_寻找取右 (全路径注册项名, { 92, 0 }, -1)<br />     lRes ＝ RegDeleteTreeW (hKey, 目标)<br /> .否则<br />     .如果 (值名称 ≠ {  } 且 值名称 ≠ { 0, 0 })<br />         lRes ＝ RegDeleteValueW (hKey, 值名称)<br />     .否则<br />         目标 ＝ 字节集_寻找取右 (全路径注册项名, { 92, 0 }, -1)<br />         lRes ＝ RegDeleteKeyW (hKey, 目标)<br />     .如果结束<br /> <br /> .如果结束<br /> RegCloseKey (hKey)<br /> 返回 (lRes ＝ #ERROR_SUCCESS)

godandwoman

更新的好快啊

opq123

感谢分享，很给力！~

逍遥浪子5720

感谢感谢

云游脚本

范德萨范德萨

byronzhj

更新太快了，不错

q312459945

啊啊啊啊啊啊啊啊啊啊啊啊

东方网络

一直都在用，最早的用户！