Manuel du langage de script Desktop Management › Fonctions › Fonctions de manipulation du registre › RegDeleteValue : Supprimer une valeur du registre

RegDeleteValue : Supprimer une valeur du registre

(Applicable à Windows)

La fonction RegDeleteValue supprime une valeur du registre.

Format de la fonction :

RegDeleteValue(hkey as integer) as Boolean

hKey

Spécifie le descripteur de la clé de registre à partir de laquelle supprimer la valeur associée.

La valeur renvoyée est True en cas de réussite de la fonction. Dans le cas contraire, elle est False.

Exemple :

Structure de test :

HKLM\

\ Software

\ CA

\ Pour test uniquement

\ var_6

\ dummy

Dim hkey1 as integer

ClrScr()


hkey1 = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\CA\pour test uniquement")
if hkey1 = 0 then
	Print("Echec de RegOpenKey.")
	quitter
endif

if RegDeleteValue(hKey1) then
	Print("Réussite de RegDeleteValue.")
else
	Print("Echec de RegDeleteValue.")
endif

if RegDeleteVariable(hKey1, "var_6") then
	Print("Réussite de RegDeleteVariable pour var_6.")
else
	Print("Echec de RegDeleteVariable pour var_6.")
endif

RegCloseKey(hkey1)

hkey1 = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\CA")

if hkey1 = 0 then
	Print("Echec de RegOpenKey.")
	quitter
endif

if RegDeleteKey(hkey1, "dummy") then
	Print("Clé factice supprimée avec succès")
else
	Print("Echec de la suppression de la clé factice.")
endif

RegCloseKey(hkey1)

Messagebox("Vérifiez le Registre !", "test de script desktop management")

hkey1 = RegOpenKey(HKEY_LOCAL_MACHINE, "LOGICIEL")
if hkey1 = 0 then
	Print("Echec de RegOpenKey.")
	quitter
endif

if RegDeleteKey(hkey1, "CA\pour test uniquement") then
	Print("Clé ""CA\pour test uniquement"" supprimée avec succès")

else
	Print("Echec de la suppression de la clé " "CA\pour test uniquement".")
endif

if RegDeleteKey(hkey1, "CA") then
	Print("Clé CA supprimée avec succès")
else
	Print("Echec de la suppression de la clé CA.")
endif

RegCloseKey(hkey1)