XProfan

Deutsch

Beschreibung:

RegEnumKey Listet Untereschlüssel eines Registryschlüssels auf. Die Funktion wurde zur Kompatibilität mit Windows3.1 erhalten und funktioniert bis XP weiterhin. Da die API RegEnumKeyEx weitere Daten der Schlüssel liefern kann, sollte diese verwendet werden.

Deklaration:

Def RegEnumKey(4) !ADVAPI32,RegEnumKeyA

Parameter:

1.Parameter: Handle eines geöffneten Keys (dessen Unterschlüssel man listen möchte) als LongInt oder folgende Werte =>
-HKEY_CLASSES_ROOT = $80000000
-HKEY_CURRENT_USER = $80000001
-HKEY_LOCAL_MACHINE = $80000002
-HKEY_USERS = $80000003

2.Parameter: Position des gesuchten Unterschlüssels in der Registry als LongInt.

3.Parameter: Bereichsvariable, die den Namen des Unterschlüssels empfängt.

4.Parameter: Größe der Bereichsvariablen von Parameter 3 in Bytes als LongInt.

Rückgabewert:

0 wenn ein Schlüssel ausgelesen wurde, ansonsten <>0 (Errorcode).

Beispiele:

Kompilieren Markieren Separieren

Def RegOpenKeyEx(5) !"ADVAPI32","RegOpenKeyExA"
Def RegEnumKey(4) !"ADVAPI32","RegEnumKeyA"
Def RegCloseKey(1) !"ADVAPI32","RegCloseKey"
Windowstyle 31
Windowtitle "Registry Unterschlüssel listen"
Window 0,0-640,440
declare ergebnis#,Error&,Handle&,Key$,Zähler%
dim Ergebnis#,255--Länge des zu erwartenden Namens
Key$="Software"
 $80000001=HKEY_CURRENT_USER   $F003F = KEY_ALL_ACCESS
Error&=RegOpenKeyEx($80000001,addr(Key$),0,$F003F,addr(Handle&))
PRINT "OpenKey (0=OK) : ",Error&

whilenot Error&

    Error&=RegEnumKey(Handle&,Zähler%,Ergebnis#,100)
    casenot Error& : ADDSTRING string$(Ergebnis#,0)
    inc Zähler%

endwhile

RegCloseKey(Handle&)
dispose Ergebnis#
@Listbox$("Unterschlüssel von Software",1)