XProfan

Italia

Beschreibung:

Die API RegCreateKey erzeugt einen Registryschlüssel, öffnet ihn und liefert das Handle zurück. Ist dieser Schlüssel schon vorhanden, wird er geöffnet. Die Funktion wurde zur Kompatibilität mit Windows3.1 erhalten und funktioniert bis XP weiterhin. Da die API RegCreateKeyEx die Möglichkeit bietet unter NT-basierten Systemen auch Zugriffsrechte zu vergeben, sollte man besser RegCreateKeyEx benutzen.

Deklaration:

DEF @RegCreateKey(3)!ADVAPI32,RegCreateKeyA

Parameter:

1.Parameter: Handle eines schon geöffneten Keys als LongInt oder folgende vordefinierte Werte =>
-HKEY_CLASSES_ROOT = $80000000
-HKEY_CURRENT_USER = $80000001
-HKEY_LOCAL_MACHINE = $80000002
-HKEY_USERS = $80000003

2.Parameter: Adresse eines Unterschlüssels oder Bereichsvariable mit einem Unterschlüssel, der erzeugt oder/und geöffnet werden soll.

3.Parameter: 4 Byte Bereichsvariable, die das Handle des Keys aufnimmt.

Rückgabewert:

0 bei Erfolg, bei Misserfolg ein Wert <>0 (Fehlercode).

Beispiele:

Kompilieren Markieren Separieren

Declare Handle#,FEHLER&,Key#,Name#,Wert#,Size#,Type#
DEF @RegCloseKey(1) !"ADVAPI32","RegCloseKey"
DEF @RegSetValueEx(6) !"ADVAPI32","RegSetValueExA"
DEF @RegCreateKey(3)!"ADVAPI32","RegCreateKeyA"
DEF @RegDeleteKey(2) !"ADVAPI32","RegDeleteKeyA"
DEF @RegDeleteValue(2) !"ADVAPI32","RegDeleteValueA"
Windowstyle 31
Windowtitle "Registryschlüssel erstellen"
Window 0,0-640,440
DIM Key#,260
DIM Handle#,4
DIM Name#,250
DIM Size#,4
DIM Wert#,260
Dim Type#,4
String Key#,0="SoftwareAH Test"
LET Fehler&=@RegCreateKey($80000001,Key#,Handle#)
Print "Fehlercode beim Erstellen/Öffenen des Schlüssels SoftwareAH Test: ";Fehler&

IF Fehler&=0

    Print "Fehlercode RegCloseKey: ";@RegCloseKey(@Long(Handle#,0))

Endif

Dispose Type#
Dispose Wert#
Dispose key#
Dispose Handle#
Dispose Name#
Dispose Size#

While 0=0

    Waitinput

wend