XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Registry: Unterschlüssel und deren Werte listen
Def @Regopenkeyex(5) !ADVAPI32,RegOpenKeyExA
Def @Regenumvalue(8) !ADVAPI32,RegEnumValueA
Def @Regclosekey(1) !ADVAPI32,RegCloseKey
Windowstyle 31
Windowtitle Registry Unterschlüssel und Werte listen
Window 0,0-640,440
Declare Ergebnis#,Error&,Handle&,Key$,Zähler&
Declare Valuesize#,Typ#,Wert#,Buffersize#
Dim Typ#,4
Dim Wert#,261
Dim Buffersize#,4
Dim Valuesize#,4
Dim Ergebnis#,261--Länge des zu erwartenden Namens
Let Key$=SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders
 $80000001=HKEY_CURRENT_USER   $F003F = KEY_ALL_ACCESS
Error&=@Regopenkeyex($80000001,Addr(Key$),0,$F003f,@Addr(Handle&))
Print OpenKey (0=OK) : ,Error&
Let Zähler&=0

Whilenot Error&

    Long Buffersize#,0=261
    Long Valuesize#,0=261
    Clear Ergebnis#,Typ#,Wert#
    Error&=@Regenumvalue(Handle&,Zähler&,Ergebnis#,Valuesize#,0,Typ#,Wert#,Buffersize#)

    If Error&=0

        If @Or(@Long(Typ#,0)=$4,@Long(Typ#,0)=$5)

            Addstring @String$(Ergebnis#,0)+=+@Str$(@Long(Wert#,0))

        Elseif @Long(Typ#,0)=$2

            Addstring @String$(Ergebnis#,0)+=+@String$(Wert#,0)

        Elseif @Long(Typ#,0)=$1

            Addstring @String$(Ergebnis#,0)+=+@String$(Wert#,0)

        Else

            Addstring @String$(Ergebnis#,0)+=...+@Str$(@Long(Typ#,0))

        Endif

    Endif

    Let Zähler&=Zähler&+1

Endwhile

@Regclosekey(Handle&)
Dispose Ergebnis#
Dispose Typ#
Dispose Wert#
Dispose Buffersize#
Dispose Valuesize#
@Listbox$(Unterschlüssel und Werte von Shell Folders,1)