Declare Function RegDeleteValue Lib "advapi32" Alias "RegDeleteValueA" (ByVal hKey As Long, _ ByVal lpValueName As String) As Long
RegDeleteValue удаляет параметр из раздела реестра. Функция работает только со значениями параметров и не может удалять разделы
В случае успеха функция возвращает 0, в случае ошибки - код ошибки
' Удаляем параметр "username" раздела ' "HKEY_CURRENT_USER\Software\Russian_Project\Samples\Config" Dim hkey As Long ' дескриптор открываемого раздела Dim retval As Long ' возвращаемое значение ' Сначала откроем раздел реестра, ' содержащий удаляемый параметр retval = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Russian_Project\Samples\Config", 0, KEY_ALL_ACCESS, hkey) If retval = 0 Then ' раздел успешно открыт ' Теперь удаляем параметр retval = RegDeleteValue(hkey, "username") MsgBox "Параметр удален" ' Закрываем раздел реестра retval = RegCloseKey(hkey) End If
RegDeleteKey, RegQueryValueEx, RegSetValueEx