Desktop Management Scripting-Sprache › Funktionen › Funktionen zum Bearbeiten der Registrierung › RegDeleteKey - Löschen eines Registrierungsschlüssels

RegDeleteKey - Löschen eines Registrierungsschlüssels

Gültig für Windows

Die Funktion "RegDeleteKey" entfernt den angegebenen Schlüssel.

Diese Registrierungs-Bearbeitungsfunktion hat das folgende Format:

RegDeleteKey(hKey as Integer, subkey as String) as Boolean

hKey

Gibt einen aktuell geöffneten Schlüssel oder einen vordefinierten Schlüssel an und kann einen der folgenden auf allen Windows-Plattformen verfügbaren vordefinierten Werte aufweisen:

HKEY_CLASSES_ROOT

HKEY_CURRENT_USER

HKEY_LOCAL_MACHINE

HKEY_USERS

subkey

Gibt an, dass es sich bei dem Parameter um eine Zeichenfolge handelt, die den Namen des zu löschenden Schlüssels festlegt. "Subkey" muss ein Unterschlüssel des durch "hKey" angegebenen Schlüssels sein. Verwenden Sie keine leere Zeichenfolge als subkey-Parameter.

Bei erfolgreichem Abschluss gibt die Funktion TRUE zurück. Falls der Schlüssel nicht vorliegt oder zurzeit von einer anderen Anwendung geöffnet ist, wird FALSE zurückgegeben.

Unterschlüssel

Unter Windows 9x werden mit dieser Funktion ebenfalls alle Unterschlüssel entfernt. Unter Windows NT und 2000 müssen Sie die einzelnen Unterschlüssel vor dem Ausführen der Funktion separat entfernen.

Beispiel: Funktion "RegDeleteKey"

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)