XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Registry: Unterschlüssel listen
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)