Функция RegCloseKey

Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long

RegCloseKey закрывает раздел в реестре. Эта операция должна происходить после чтения или записи данных в реестр. Закрытие раздела реестра освобождает ресурсы компьютера. Естественно, вы не должны пользоваться этим разделом после его закрытия.

Возвращаемое значение

В случае успеха функция возвращает 0, в случае ошибки возвращается ее код.

Параметры

hKey

Раздел реестра

Пример

' Создаем раздел под именем
' HKEY_CURRENT_USER\Software\Russian_Project\Samples\Config

Dim hregkey As Long  ' получаем дескриптор для вновь созданного или открытого раздела
Dim secattr As SECURITY_ATTRIBUTES  
Dim subkey As String  ' имя подраздела
Dim neworused As Long  ' получаем 1, если раздел был создан или 2, если был открыт существующий раздел
Dim retval As Long  ' возвращаемое значение

' назначаем название для нового раздела
subkey = "Software\Russian_Project\Samples\Config"
secattr.nLength = Len(secattr)  
secattr.lpSecurityDescriptor = 0  
secattr.bInheritHandle = True 

' создаем или открываем раздел реестра
retval = RegCreateKeyEx(HKEY_CURRENT_USER, subkey, 0, "", 0, KEY_WRITE, secattr, hregkey, neworused)
If retval <> 0 Then  ' ошибка при открытии
  Debug.Print "Ошибка при открытии или создании раздела"
  End
End If

' закрываем раздел
retval = RegCloseKey(hregkey)

Смотри также

RegCreateKeyEx, RegOpenKeyEx

Категория