Vorheriges Thema: RegDeleteValue - Entfernen eines Wertes aus der RegistrierungNächstes Thema: RegENumKey - Auflisten der Unterschlüssel eines Registrierungsschlüssels


RegDeleteVariable - Entfernen einer Variablen

Gültig für Windows

Die Funktion "RegDeleteVariable" entfernt die angegebene Variable.

Diese Registrierungs-Bearbeitungsfunktion hat das folgende Format:

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

Gibt einen zurzeit geöffneten oder einen vordefinierten Schlüssel an. Der Parameter "hKey" kann einen der folgenden vordefinierten Werte aufweisen:

HKEY_CLASSES_ROOT
HKEY_CURRENT_USER
HKEY_LOCAL_MACHINE
HKEY_USERS
Name

Kennzeichnet den Namen der zu entfernenden Variablen.

Bei erfolgreichem Abschluss gibt die Funktion TRUE zurück, andernfalls FALSE.

Beispiel: Funktion "RegDeleteVariable"

Teststruktur:

HKLM\

\ Software

\ CA

\ 4 test only

\ var_6

\ dummy

Dim hkey1 as integer

ClrScr()


hkey1 = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\CA\4 test only")
if hkey1 = 0 then
	Print("RegOpenKey failed.")
	exit
endif

if RegDeleteValue(hKey1) then
	Print("RegDeleteValue succeeded.")
else
	Print("RegDeleteValue failed.")
endif

if RegDeleteVariable(hKey1, "var_6") then
	Print("RegDeleteVariable for var_6 succeeded.")
else
	Print("RegDeleteVariable for var_6 failed.")
endif

RegCloseKey(hkey1)

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

if hkey1 = 0 then
	Print("RegOpenKey failed.")
	exit
endif

if RegDeleteKey(hkey1, "dummy") then
	Print("Key dummy successfully deleted")
else
	Print("Key dummy deletion failed.")
endif

RegCloseKey(hkey1)

Messagebox("Check registry!", "desktop management scripting test")

hkey1 = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE")
if hkey1 = 0 then
	Print("RegOpenKey failed.")
	exit
endif

if RegDeleteKey(hkey1, "CA\4 test only") then
	Print("Key ""CA\4 test only"" successfully deleted")

else
	Print("Key" "CA\4 test only" "deletion failed.")
endif

if RegDeleteKey(hkey1, "CA") then
	Print("Key CA successfully deleted")
else
	Print("Key CA deletion failed.")
endif

RegCloseKey(hkey1)