XProfan

Français

Beschreibung:

RegEnumKey Listet Untereschlüssel eines Registryschlüssels sur. qui Funktion wurde zur Kompatibilität avec Windows3.1 conservé et funktioniert jusqu'à XP weiterhin. là qui API RegEnumKeyEx weitere données qui Schlüssel liefern peux, sollte cet verwendet volonté.

Deklaration:

Def RegEnumKey(4) !ADVAPI32,RegEnumKeyA

paramètre:

1.paramètre: Handle eines geöffneten Keys (dessen Unterschlüssel on listen voudrais) comme LongInt ou bien folgende Werte =>
-HKEY_CLASSES_ROOT = $80000000
-HKEY_CURRENT_USER = $80000001
-HKEY_LOCAL_MACHINE = $80000002
-HKEY_USERS = $80000003

2.paramètre: Position des gesuchten Unterschlüssels dans qui Registry comme LongInt.

3.paramètre: Bereichsvariable, qui den Namen des Unterschlüssels empfängt.

4.paramètre: Taille qui Bereichsvariablen de paramètre 3 dans Bytes comme LongInt.

Rückgabewert:

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

Beispiele:

Kompilieren Marque Séparation

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>)