Hallo Ludger!
Dies könnte dir helfen:
def RegOpenKeyEx(5) !"ADVAPI32","RegOpenKeyExA"
def RegEnumKey(4) !"ADVAPI32","RegEnumKeyA"
def RegCloseKey(1) !"ADVAPI32","RegCloseKey"
declare Handle&,Key#,Zähler%,Error&,Ergebnis#
dim Key#,100
dim Ergebnis#,100
string Key#,0="Software\Microsoft"
RegOpenKeyEx($80000001,Key#,0,$F003F,addr(Handle&))
whilenot Error&=259
Error&=RegEnumKey(Handle&,Zähler%,Ergebnis#,100)
casenot Error&:print string$(Ergebnis#,0)
inc Zähler%
endwhile
RegCloseKey(Handle&)
dispose Ergebnis#
dispose Key#
waitkey
P.S.:Die oberste Ebene wird bestimmt durch den 1. Parameter bei RegOpenKeyEx: $80000000=CLASSES_ROOT, $80000001=CURRENT_USER, $80000002=LOCAL_MACHINE usw.
HTH
Pascal
|