Rubrique précédente: RegDeleteValue : Supprimer une valeur du registreRubrique suivante: RegENumKey : Enumérer les sous-clés d'une clé de registre


RegDeleteVariable – Supprimer une variable

(Applicable à Windows)

La fonction RegDeleteVariable supprime la variable indiquée.

Format de la fonction :

RegDeleteVariable(hKey as integer, name as string) as Boolean
hKey

Indique une clé ouverte ou une clé prédéfinie. Le paramètre hKey peut avoir l'une des valeurs prédéfinies suivantes :

HKEY_CLASSES_ROOT
HKEY_CURRENT_USER
HKEY_LOCAL_MACHINE
HKEY_USERS
name

Identifie le nom de la variable à supprimer.

En cas de réussite, la fonction renvoie la valeur True. Dans le cas contraire, elle renvoie la valeur 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)