Declare Function RegDeleteKey Lib "advapi32" Alias "RegDeleteKeyA" (ByVal hKey As Long, _ ByVal lpSubKey As String) As Long
RegDeleteKey удаляет раздел из реестра.
В успешном случае возвращается 0, в случае ошибки - код ошибки
' Удаляем подраздел "Software\Russian_Project\Samples\Config" ' ветви HKEY_LOCAL_MACHINE Dim retval As Long ' возвращаемое значение ' Пытаемся удалить выбранный раздел retval = RegDeleteKey(HKEY_LOCAL_MACHINE, "Software\Russian_Project\Samples\Config") If retval <> 0 Then Debug.Print "Удаление не произошло. Раздел возможно имеет подразделы или параметры" Debug.Print "Или данный раздел не существует" End If
RegCreateKeyEx, RegDeleteValue