(Applicable à Windows)
La fonction RegDeleteVariable supprime la variable indiquée.
Format de la fonction :
RegDeleteVariable(hKey as integer, name as string) as Boolean
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
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)
|
Copyright © 2014 CA Technologies.
Tous droits réservés.
|
|