XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Registry: Typ und Daten eines Registryschlüssels auslesen
Declare Handle#,Fehler&,Key#,Name#,Wert#,Size#,Type#
Def @Regopenkeyex(5) !ADVAPI32,RegOpenKeyExA
Def @Regqueryvalueex(6) !ADVAPI32,RegQueryValueExA
Def @Regclosekey(1) !ADVAPI32,RegCloseKey
Windowstyle 31
Windowtitle Aus Registry Startmenüname auslesen
Window 0,0-640,440
Dim Key#,260
Dim Handle#,4
Dim Name#,250
Dim Size#,4
Dim Wert#,260
Dim Type#,4
String Key#,0=SoftwareMicrosoftWindowsCurrentVersionExplorerUser Shell Folders
Let Fehler&=@Regopenkeyex($80000001,Key#,0,$F003f,Handle#)
Print Fehlercode beim Öffenen des Schlüssels User Shell Folders: ;Fehler&

If Fehler&=0

    String Name#,0=Start Menu
    Long Size#,0=260
    Let Fehler&=@Regqueryvalueex(@Long(Handle#,0),Name#,0,Type#,Wert#,Size#)
    Print Fehlercode beim Auslesen des Schlüssels: ;Fehler&
    Print
    Print Das Startmenü des aktuellen Users steht hier:
    Print @String$(Wert#,0)
    Print Typ des Schlüssels: ;@Long(Type#,0)
    Print Länge des Wertes: ;@Long(Size#,0); Bytes
    Print
    Print Fehlercode RegCloseKey: ;@Regclosekey(@Long(Handle#,0))

Endif

If Fehler&<>0

    String Key#,0=SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders
    Let Fehler&=@Regopenkeyex($80000001,Key#,0,$F003f,Handle#)
    Print Fehlercode beim Öffenen des Schlüssels Shell Folders: ;Fehler&
    String Name#,0=Start Menu
    Long Size#,0=260
    Let Fehler&=@Regqueryvalueex(@Long(Handle#,0),Name#,0,Type#,Wert#,Size#)
    Print Fehlercode beim Auslesen des Schlüssels: ;Fehler&
    Print
    Print Das Startmenü des aktuellen Users steht hier:
    Print @String$(Wert#,0)
    Print Typ des Schlüssels: ;@Long(Type#,0)
    Print Länge des Wertes: ;@Long(Size#,0); Bytes
    Print
    Print Fehlercode RegCloseKey: ;@Regclosekey(@Long(Handle#,0))

Endif

If Fehler&<>0

    Print Fehler!!!!!! Startmenü konnte nicht ausgelesen werden!!!

Endif

Dispose Type#
Dispose Wert#
Dispose Key#
Dispose Handle#
Dispose Name#
Dispose Size#

While 0=0

    Waitinput