[求助]如何通过代码在注册表中设置数值型数据？

dengjian

我设计的程序需要更改word宏的级别为低，在代码中有如下语句：

    RegOpenKey HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Word\Security", hKey
    RegSetValueEx hKey, "Level", 0, REG_DWORD, 3, 1
但为什么执行后查看注册表却是“不正确的DWORD值”呢？

dengjian

这个问题真的这么难吗？有哪位高手可以帮忙解决？我在网上找了不少例子，但基本上是文字型的。

crg770502

方法1

把Level项导出

用shell "regedit /s c:\temp\03.reg"

方法2

Dim Mydat As Long
Dim Mykey As Long
RegOpenKeyEx HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Word\Security", 0, KEY_ALL_ACCESS, Mykey
Mydat = 3
Mykey = RegSetValueEx(Mykey, "Level", 0&, REG_DWORD, Mydat, 4)
If Mykey = ERROR_SUCCESS Then
    MsgBox "修改成功!"
Else:
    MsgBox "修改不成功!"
    Exit Sub
End If

[此贴子已经被作者于2006-12-19 0:38:46编辑过]

dengjian

我将常数修改为Const KEY_ALL_ACCESS = &H3F，测试通过

非常感谢crg770502的帮助！