精易模块 写入键值Ex_文本 加{0} bug

yujiekuxiao

  

子程序名	返回值类型	公开	备 注
写入键值Ex_文本	整数型		成功返回0,失败返回错误码；注意，该函数只能写入文本型的值
参数名	类 型	参考	可空	数组	备 注
键根目录	整数型				#HKEY_*开头的常量
全路径注册项名	文本型				完整的键路径,不包括"HKEY_*" 例如:SOFTWARE\Test
键名称	文本型				键的名称
欲写入值	字节集				使用 到字节集()
写入类型	整数型				只适用于：REG_SZ;REG_EXPAND_SZ;REG_MULTI_SZ;#REG_BINARY
是否自动创建	逻辑型				如果不存在的话，是否创建该键

变量名	类 型	静态	数组	备 注
bRet	整数型

如果真 (写入类型 ≠ #REG_SZ 且 写入类型 ≠ #REG_EXPAND_SZ 且 写入类型 ≠ #REG_MULTI_SZ 且 写入类型 ≠ #REG_BINARY )
输出调试文本 (“写入的类型不正确，如果需要写入数值型，请调用【写入键值Ex_数值】”)
返回 (-1)
如果真 (是否自动创建)
m_当前键 ＝ “1”
如果真 (m_当前键目录 ≠ 键根目录 或 m_当前键 ≠ 全路径注册项名)
判断 (是否自动创建)
bRet ＝ 创建并打开键Ex (键根目录, 全路径注册项名)  ' 自动创建这个键
bRet ＝ 打开键Ex (键根目录, 全路径注册项名)

如果真 (bRet ＝ -1)
返回 (m_Error)


欲写入值 ＝ 欲写入值 ＋ { 0 }
m_Error ＝ RegSetValueExA (m_键句柄, 键名称, 0, 写入类型, 欲写入值, 取字节集长度 (欲写入值))
返回 (m_Error)

.版本 2<br /> <br /> .子程序 写入键值Ex_文本, 整数型, 公开, 成功返回0,失败返回错误码；注意，该函数只能写入文本型的值<br /> .参数 键根目录, 整数型, , #HKEY_*开头的常量<br /> .参数 全路径注册项名, 文本型, , 完整的键路径,不包括"HKEY_*" 例如:SOFTWARE\Test<br /> .参数 键名称, 文本型, , 键的名称<br /> .参数 欲写入值, 字节集, , 使用 到字节集()<br /> .参数 写入类型, 整数型, , 只适用于：REG_SZ;REG_EXPAND_SZ;REG_MULTI_SZ;#REG_BINARY<br /> .参数 是否自动创建, 逻辑型, 可空, 如果不存在的话，是否创建该键<br /> .局部变量 bRet, 整数型<br /> <br /> .如果真 (写入类型 ≠ #REG_SZ 且 写入类型 ≠ #REG_EXPAND_SZ 且 写入类型 ≠ #REG_MULTI_SZ 且 写入类型 ≠ #REG_BINARY)<br />     输出调试文本 (“写入的类型不正确，如果需要写入数值型，请调用【写入键值Ex_数值】”)<br />     返回 (-1)<br /> .如果真结束<br /> .如果真 (是否自动创建)<br />     m_当前键 ＝ “1”<br /> .如果真结束<br /> .如果真 (m_当前键目录 ≠ 键根目录 或 m_当前键 ≠ 全路径注册项名)<br />     .判断开始 (是否自动创建)<br />         bRet ＝ 创建并打开键Ex (键根目录, 全路径注册项名)  ' 自动创建这个键<br />     .默认<br />         bRet ＝ 打开键Ex (键根目录, 全路径注册项名)<br />     .判断结束<br /> <br />     .如果真 (bRet ＝ -1)<br />         返回 (m_Error)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> 欲写入值 ＝ 欲写入值 ＋ { 0 }<br /> m_Error ＝ RegSetValueExA (m_键句柄, 键名称, 0, 写入类型, 欲写入值, 取字节集长度 (欲写入值))<br /> 返回 (m_Error)

上面的代码:欲写入值 ＝ 欲写入值 ＋ { 0 }
只适用于文本
如果类型是
#REG_MULTI_SZ 和 #REG_BINARY  是不适用的,跟预想的写入不一样!

郭家三少

这个必须支持~

yujiekuxiao

修正过后的代码如下:

  

子程序名	返回值类型	公开	备 注
写入键值Ex_文本	整数型		成功返回0,失败返回错误码；注意，该函数只能写入文本型的值
参数名	类 型	参考	可空	数组	备 注
键根目录	整数型				#HKEY_*开头的常量
全路径注册项名	文本型				完整的键路径,不包括"HKEY_*" 例如:SOFTWARE\Test
键名称	文本型				键的名称
欲写入值	字节集				使用 到字节集()
写入类型	整数型				只适用于：REG_SZ;REG_EXPAND_SZ;REG_MULTI_SZ;#REG_BINARY
是否自动创建	逻辑型				如果不存在的话，是否创建该键

变量名	类 型	静态	数组	备 注
bRet	整数型

如果真 (写入类型 ≠ #REG_SZ 且 写入类型 ≠ #REG_EXPAND_SZ 且 写入类型 ≠ #REG_MULTI_SZ 且 写入类型 ≠ #REG_BINARY )
输出调试文本 (“写入的类型不正确，如果需要写入数值型，请调用【写入键值Ex_数值】”)
返回 (-1)
如果真 (是否自动创建)
m_当前键 ＝ “1”
如果真 (m_当前键目录 ≠ 键根目录 或 m_当前键 ≠ 全路径注册项名)
判断 (是否自动创建)
bRet ＝ 创建并打开键Ex (键根目录, 全路径注册项名)  ' 自动创建这个键
bRet ＝ 打开键Ex (键根目录, 全路径注册项名)

如果真 (bRet ＝ -1)
返回 (m_Error)


如果真 (写入类型 ＝ #REG_SZ 或 写入类型 ＝ #REG_EXPAND_SZ )
欲写入值 ＝ 欲写入值 ＋ { 0 }

m_Error ＝ RegSetValueExA (m_键句柄, 键名称, 0, 写入类型, 欲写入值, 取字节集长度 (欲写入值))
返回 (m_Error)

.版本 2<br /> <br /> .子程序 写入键值Ex_文本, 整数型, 公开, 成功返回0,失败返回错误码；注意，该函数只能写入文本型的值<br /> .参数 键根目录, 整数型, , #HKEY_*开头的常量<br /> .参数 全路径注册项名, 文本型, , 完整的键路径,不包括"HKEY_*" 例如:SOFTWARE\Test<br /> .参数 键名称, 文本型, , 键的名称<br /> .参数 欲写入值, 字节集, , 使用 到字节集()<br /> .参数 写入类型, 整数型, , 只适用于：REG_SZ;REG_EXPAND_SZ;REG_MULTI_SZ;#REG_BINARY<br /> .参数 是否自动创建, 逻辑型, 可空, 如果不存在的话，是否创建该键<br /> .局部变量 bRet, 整数型<br /> <br /> .如果真 (写入类型 ≠ #REG_SZ 且 写入类型 ≠ #REG_EXPAND_SZ 且 写入类型 ≠ #REG_MULTI_SZ 且 写入类型 ≠ #REG_BINARY)<br />     输出调试文本 (“写入的类型不正确，如果需要写入数值型，请调用【写入键值Ex_数值】”)<br />     返回 (-1)<br /> .如果真结束<br /> .如果真 (是否自动创建)<br />     m_当前键 ＝ “1”<br /> .如果真结束<br /> .如果真 (m_当前键目录 ≠ 键根目录 或 m_当前键 ≠ 全路径注册项名)<br />     .判断开始 (是否自动创建)<br />         bRet ＝ 创建并打开键Ex (键根目录, 全路径注册项名)  ' 自动创建这个键<br />     .默认<br />         bRet ＝ 打开键Ex (键根目录, 全路径注册项名)<br />     .判断结束<br /> <br />     .如果真 (bRet ＝ -1)<br />         返回 (m_Error)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .如果真 (写入类型 ＝ #REG_SZ 或 写入类型 ＝ #REG_EXPAND_SZ)<br />     欲写入值 ＝ 欲写入值 ＋ { 0 }<br /> .如果真结束<br /> <br /> m_Error ＝ RegSetValueExA (m_键句柄, 键名称, 0, 写入类型, 欲写入值, 取字节集长度 (欲写入值))<br /> 返回 (m_Error)