Проблема при работе с реестром

[Gfif21]

Пишу очередной проект. Нужно, чтобы программа хранила свои настройки в реестре. При загрузке программа должна проверять, существует ли в реестре соответствующая запись. Создал запись в реестре самостоятельно. Функция RegOpenKeyEx дает ненулевой результат, то есть ошибку (87). Подумал, может неправильно добавил запись. Исправил для просмотра другой программы (первой попалась 7-Zip). То же самое. Запись в реестре есть. Но при открытии выдает ошибку. В чем может быть косяк?

Код:

Код: Выделить всё

Module RegistryData
    Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Integer, ByVal lpSubKey As String, ByVal ulOptions As Integer, ByVal samDesired As Integer, ByVal phkResult As Integer) As Integer
    Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Integer) As Integer
    Private Const HKEY_LOCAL_MACHINE = &H80000002
    Private Const KEY_READ = &H20019



    Public Function isRegistryDataExists() As Boolean
        Dim iResult As Integer
        Dim RetVal As Integer

        RetVal = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\\7-Zip", 0, KEY_READ, iResult)
        If RetVal = 0 Then
            isRegistryDataExists = True
            RegCloseKey(iResult)
        Else
            isRegistryDataExists = False
        End If
    End Function
End Module


[Денис]

Виста? Семерка? Запрет на чтение из этого куста реестра?

[Nord777]

Зачем API ?

Public NotInheritable Class Registry
Член Microsoft.Win32

Сводка:
Обеспечивает объекты Microsoft.Win32.RegistryKey, предоставляющие корневые разделы в реестре Windows, и методы static для доступа к парам "раздел-значение".

Public NotInheritable Class RegistryKey
Inherits System.MarshalByRefObject
Член Microsoft.Win32

Сводка:
Представляет узел уровня раздела в реестре Windows. Этот класс является инкапсуляцией реестра.

[Gfif21]

Короче вопрос снимается, после перезагрузки ноута все заработало. Странно

Зачем API ?

Public NotInheritable Class Registry
Член Microsoft.Win32

Сводка:
Обеспечивает объекты Microsoft.Win32.RegistryKey, предоставляющие корневые разделы в реестре Windows, и методы static для доступа к парам "раздел-значение".

Public NotInheritable Class RegistryKey
Inherits System.MarshalByRefObject
Член Microsoft.Win32

Сводка:
Представляет узел уровня раздела в реестре Windows. Этот класс является инкапсуляцией реестра.

API по привычке. Спасибо за подсказку. Попробую.