XProfan

Deutsch

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Registry: Startmenüname auslesen
Declare Handle#,Fehler&,Key#,Name#,Wert#,Size#
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
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,0,Wert#,Size#)
    Print Fehlercode beim Auslesen des Schlüssels: ;Fehler&
    Print
    Print Das Startmenü des aktuellen Users steht hier:
    Print @String$(Wert#,0)
    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,0,Wert#,Size#)
    Print Fehlercode beim Auslesen des Schlüssels: ;Fehler&
    Print
    Print Das Startmenü des aktuellen Users steht hier:
    Print @String$(Wert#,0)
    Print
    Print Fehlercode RegCloseKey: ;@Regclosekey(@Long(Handle#,0))

Endif

If Fehler&<>0

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

Endif

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

While 1

    Waitinput

Wend