XProfan

Español

Descripción:

RegEnumKey Listet Untereschlüssel uno Registryschlüssels en. El Función wurde a Kompatibilität con Windows3.1 obtener y funktioniert a XP weiterhin. Como el API RegEnumKeyEx weitere Daten el Schlüssel liefern kann, debería esta verwendet voluntad.

Deklaration:

Def RegEnumKey(4) !ADVAPI32,RegEnumKeyA

Parámetro:

1.Parámetro: Handle uno geöffneten Keys (dessen Unterschlüssel uno listen möchte) como LongInt oder folgende Werte =>
-HKEY_CLASSES_ROOT = $80000000
-HKEY_CURRENT_USER = $80000001
-HKEY_LOCAL_MACHINE = $80000002
-HKEY_USERS = $80000003

2.Parámetro: Position des gesuchten Unterschlüssels en el Registry como LongInt.

3.Parámetro: Bereichsvariable, el el Namen des Unterschlüssels empfängt.

4.Parámetro: Größe el Bereichsvariablen de Parámetro 3 en Bytes como LongInt.

Rückgabewert:

0 si una Schlüssel ausgelesen wurde, ansonsten <>0 (Errorcode).

Beispiele:

Kompilieren Marca Separación

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

class=s2>)