精益模块 zc表操作类

花诗雨露

  

' zc表操作类

子程序名	返回值类型	公开	备 注
_打开项	整数型
参数名	类 型	参考	可空	数组	备 注
项名称	文本型
是否创建	逻辑型				默认为假:打开 真:如果项不存在则创建项

变量名	类 型	静态	数组	备 注
局_根句柄	整数型
局_项句柄	整数型
局_项文本	文本型
局_位置	整数型
b	整数型

局_位置 ＝ 寻找文本 (项名称, “\”, , 假)
局_项文本 ＝ 取文本左边 (项名称, 局_位置 － 1)
判断 (局_项文本 ＝ “HKEY_CLASSES_ROOT”)
局_根句柄 ＝ 2147483648
判断 (局_项文本 ＝ “HKEY_CURRENT_USER”)
局_根句柄 ＝ 2147483649
判断 (局_项文本 ＝ “HKEY_LOCAL_MACHINE”)
局_根句柄 ＝ 2147483650
判断 (局_项文本 ＝ “HKEY_USERS”)
局_根句柄 ＝ 2147483651
判断 (文本比较 (局_项文本, “HKEY_CURRENT_CONFIG”, 假) ＝ 0)
局_根句柄 ＝ 2147483653
返回 (0)
如果 (是否创建)
b ＝ RegCreateKeyA (局_根句柄, 取文本右边 (项名称, 取文本长度 (项名称) － 局_位置), 局_项句柄)
b ＝ RegOpenKeyA (局_根句柄, 取文本右边 (项名称, 取文本长度 (项名称) － 局_位置), 局_项句柄)
如果真 (b ＝ 0)
返回 (局_项句柄)
返回 (0)

'zc表操作类<br /> <br /> .版本 2<br /> <br /> .子程序 _打开项, 整数型<br /> .参数 项名称, 文本型<br /> .参数 是否创建, 逻辑型, 可空, 默认为假:打开 真:如果项不存在则创建项<br /> .局部变量 局_根句柄, 整数型<br /> .局部变量 局_项句柄, 整数型<br /> .局部变量 局_项文本, 文本型<br /> .局部变量 局_位置, 整数型<br /> .局部变量 b, 整数型<br /> <br /> 局_位置 ＝ 寻找文本 (项名称, “\”, , 假)<br /> 局_项文本 ＝ 取文本左边 (项名称, 局_位置 － 1)<br /> .判断开始 (局_项文本 ＝ “HKEY_CLASSES_ROOT”)<br />     局_根句柄 ＝ 2147483648<br /> .判断 (局_项文本 ＝ “HKEY_CURRENT_USER”)<br />     局_根句柄 ＝ 2147483649<br /> .判断 (局_项文本 ＝ “HKEY_LOCAL_MACHINE”)<br />     局_根句柄 ＝ 2147483650<br /> .判断 (局_项文本 ＝ “HKEY_USERS”)<br />     局_根句柄 ＝ 2147483651<br /> .判断 (文本比较 (局_项文本, “HKEY_CURRENT_CONFIG”, 假) ＝ 0)<br />     局_根句柄 ＝ 2147483653<br /> .默认<br />     返回 (0)<br /> .判断结束<br /> .如果 (是否创建)<br />     b ＝ RegCreateKeyA (局_根句柄, 取文本右边 (项名称, 取文本长度 (项名称) － 局_位置), 局_项句柄)<br /> .否则<br />     b ＝ RegOpenKeyA (局_根句柄, 取文本右边 (项名称, 取文本长度 (项名称) － 局_位置), 局_项句柄)<br /> .如果结束<br /> .如果真 (b ＝ 0)<br />     返回 (局_项句柄)<br /> .如果真结束<br /> 返回 (0)

局_项文本 ＝ “HKEY_CLASSES_ROOT” 这个东西 应该加一个 到大写，因为参数有时候是手打的，不一定都是大写，会导致异常，当然，多数人是没问题的。只是个建议。

项目部002

这个可以有，下个版本优化这个问题，感谢反馈

By:boredom

有常量的 #根类