RegSetValueEx 返回“访问被拒绝”，即使 regedit 允许同一用户编辑此值

Question

我们的 VB6 旧应用程序调用 RegSetValueEx 来设置注册表值。可以使用 regedit 轻松设置此注册表值。但是，当我们的应用程序尝试设置它时，RegSetValueEx 返回 5 - Access Is Denied。

我们使用相同的代码写入其他注册表项，一切正常。此外，用户是本地管理员。

密钥是使用 KEY_ALL_ACCESS 打开的，但我尝试使用 (KEY_READ 或 KEY_WRITE) 并且这也不起作用。

Private Const READ_CONTROL = &H20000
Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_SET_VALUE = &H2
Private Const KEY_CREATE_SUB_KEY = &H4
Private Const KEY_ENUMERATE_SUB_KEYS = &H8
Private Const KEY_NOTIFY = &H10
Private Const SYNCHRONIZE = &H100000
Private Const STANDARD_RIGHTS_ALL = &H1F0000
Private Const STANDARD_RIGHTS_EXECUTE = (READ_CONTROL)
Private Const STANDARD_RIGHTS_READ = (READ_CONTROL)
Private Const STANDARD_RIGHTS_REQUIRED = &HF0000
Private Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
Private Const KEY_READ = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or     KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
Private Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))

Private Const KEY_CREATE_LINK = &H20
Private Const KEY_ALL_ACCESS = &H3F

Private Const REG_OPTION_NON_VOLATILE = 0&

Private Const HKEY_LOCAL_MACHINE = &H80000002

Dim hKey As Long
Dim e As Long
Dim lCreate As Long
Dim tSA As SECURITY_ATTRIBUTES
Dim keyOpened   As Boolean

e = RegCreateKeyEx(HKEY_LOCAL_MACHINE , "SOFTWARE\Classes\Word.Document.8", 0, "", REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, tSA, hKey, lCreate)

e = RegSetValueExLong(hKey, "BrowerFlags", 0&, REG_DWORD, newValue, 4)

Answer 1

由于 Vista 于 2005 年发布，因此访问HKEY_LOCAL_MACHINE受到 UAC 的限制。您的用户很可能是管理员，但除非该进程以提升的权限（RegEdit 是）启动，否则 UAC 将阻止写入访问。

为了给HKEY_LOCAL_MACHINE您写信，您需要确保在以提升的权限运行的代码中执行注册表访问。为此，您需要：

1. 将 UAC 清单添加到您的应用程序以强制它以提升的权限执行。但是，这意味着每次运行应用程序时，用户都必须处理 UAC 提升提示。

2. 如果您不想提升您的应用程序，您需要将需要提升的代码部分分离到一个单独的进程中，或者分离到通过COM Elevation Moniker实例化的 COM 对象中，只要您的应用程序需要执行提升的操作。