一些注册表项不返回值 VB6

Posted 2023-02-22

【中文标题】一些注册表项不返回值 VB6

【英文标题】：Some registry keys not return a value VB6

【发布时间】：2013-11-04 19:04:08

【问题描述】：

我正在尝试确定是否安装了 SQL Server 2012 Native 客户端驱动程序。有人告诉我检查这个注册表项

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Microsoft SQL Server\SQLNCLI11\CurrentVersion

VERSION 的值名称中的 where 将有一个值，表示它已安装。

当我调用 API 时

If RegOpenKeyEx(hKey, KeyName, 0, KEY_READ, handle) Then
     Exit Function
End If

在哪里

    hkey=&H80000002
    KeyName=SOFTWARE\Microsoft\Microsoft SQL Server\SQLNCLI11\CurrentVersion

它返回一个错误，就像找不到密钥一样。我已经用其他键进行了测试，它可以很好地打开它们。起初我以为是因为“Microsoft SQL Server”中的空格，事实并非如此。我可以在注册表中看到密钥。

【问题讨论】：

RegOpenKeyEx 返回什么错误码？

【参考方案1】：

在 VB6 中，该数字 &H80000002 输出为 -2147483646。任何非零值都将被视为True，因此只要它是非零值，您将始终Exit Function。拥有这种类型的逻辑通常不是一个好主意If X Then ...

建议：

If RegOpenKeyEx(hKey, KeyName, 0, KEY_READ, handle)=0 Then
     Exit Function
End If

编辑：重新阅读您的帖子后，我对问题出在哪里感到有些困惑。是运行时错误还是只是逻辑没有按照应有的方式执行？