Desktop Management Scripting-Sprache › Funktionen › Funktionen zum Bearbeiten der Registrierung › RegCreateKey - Erstellen eines Registrierungsschlüssels

RegCreateKey - Erstellen eines Registrierungsschlüssels

Gültig für Windows

Die Funktion "RegCreateKey" erstellt einen bestimmten Registrierungsschlüssel. Wenn der Schlüssel bereits in der Registrierung vorliegt, wird er geöffnet.

Diese Registrierungs-Bearbeitungsfunktion hat das folgende Format:

RegCreateKey(hKey as Integer, subkey as String) as Integer

hKey

Gibt einen zurzeit offenen oder einen vordefinierten Schlüssel an. Der Parameter "Hkey" kann auf allen Windows-Plattformen einen der folgenden vordefinierten Werte aufweisen:

HKEY_CLASSES_ROOT

HKEY_CURRENT_USER

HKEY_LOCAL_MACHINE

HKEY_USERS

subkey

Gibt eine Zeichenfolge an, die den Namen des zu öffnenden Schlüssels enthält. "Subkey" muss ein Unterschlüssel des durch "hKey" angegebenen Schlüssels sein. Wenn der Parameter "subkey" eine leere Zeichenfolge ist, gibt die Funktion den gleichen Schlüssel zurück, der auch im Parameter "hKey" angegeben ist.

Bei erfolgreichem Abschluss liefert die Funktion eine Zugriffsnummer für den neu erstellten Registrierungsschlüssel; andernfalls gibt sie den Wert 0 zurück.

Beispiel: Funktion "RegCreateKey"

Dim hkey1, hkey2, hkey3 as integer
Dim cBuf as string
Dim ccBuf[47] as char
Dim bBuf[100] as byte
Dim i as integer

ClrScr()
for i = 0 to 99
	bBuf[i] = i
next i
cBuf = "1234567890ßqwertzuiopü+asdfghjklöä#<yxcvbnm,.-"
ccBuf = cBuf

hkey1 = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE")

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

hkey2 = RegCreateKey(hkey1, "CA Technology")
if hkey2 = 0 then
	Print("RegCreateKey 1 failed.")
	exit
endif

if Not(RegSetValue(hkey1, "CA", "International")) then
	Print("RegSetValue failed")
endif

hkey3 = RegCreateKey(hkey2, "4 test only")
if hkey3 = 0 then
	Print("RegCreateKey 2 failed.")
	exit
endif

if Not(RegSetVariable(hkey3, "var_1", 123)) then
	Print("RegSetVar 1 failed.")
endif
if Not(RegSetVariable(hkey3, "var_2", "i'm a string")) then
	Print("RegSetVar 2 failed.")
endif
if Not(RegSetVariable(hkey3, "var_3", cBuf, 46)) then
	Print("RegSetVar 3 failed.")
endif
if Not(RegSetVariable(hkey3, "var_4", bBuf, 100)) then
	Print("RegSetVar 4 failed.")
endif
if Not(RegSetVariable(hkey3, "var_5", cBuf, 46, REG_SZ)) then
	Print("RegSetVar 5 failed.")
endif
if Not(RegSetVariable(hkey3, "var_6", ccBuf, 46, REG_SZ)) then
	Print("RegSetVar 5 failed.")
endif

if Not(RegCloseKey(hkey3)) then
	Print("RegCloseKey for hkey3 failed.")
endif
if Not(RegCloseKey(hkey2)) then
	Print("RegCloseKey for hkey2 failed.")
endif
if Not(RegCloseKey(hkey1)) then
	Print("RegCloseKey for hkey1 failed.")

endif