Описание функции
DeleteValue
Удаляет параметр реестра
DeleteValue(topKey, KeyName.s[, ValueName.s = ""[, WOW64 = #False[, *Ret.RegValue = 0]]])
Параметры
topKey | Корневой ключ реестра, такие как #HKEY_LOCAL_MACHINE, #HKEY_CURRENT_USER, #HKEY_CLASSES_ROOT ... |
KeyName |
Раздел реестра (без корневого ключа) |
ValueName |
[необязательный] Ключ |
WOW64 |
[необязательный] Подсистема в x64 #False - (по умолчанию) #True - используется путь 'Wow6432Node' для ключа |
*Ret.RegValue |
[необязательный] Структура для бинарного типа данных 0 - если не используется |
Возвращаемое значение
Успех: | Возвращает #True |
Ошибка: | Возвращает #False |
Пример
EnableExplicit
XIncludeFile "Registry.pbi"
UseModule Registry
Define.s Multi_SZ_Str = "ts-soft" + #LF$ + "Software-Development" + #LF$ + #LF$ + "Copyright 2013" + #LF$ + "Programmed in PureBasic"
; Записывает параметр и предлагает его удалить
If WriteValue(#HKEY_CURRENT_USER, "Software\ts-soft", "demo", Multi_SZ_Str, #REG_MULTI_SZ)
Debug ReadValue(#HKEY_CURRENT_USER, "Software\ts-soft", "demo")
If MessageRequester("Пример реестра", "Удалить демо-параметр из реестра?", #PB_MessageRequester_YesNo) = #PB_MessageRequester_Yes
If DeleteValue(#HKEY_CURRENT_USER, "Software\ts-soft", "demo")
Debug "Параметр удалён"
Else
Debug "Параметр не удалось удалить"
EndIf
EndIf
EndIf