Italia
Fonte/ Codesnippets

Auslesen Registry Startmenüname

 

KompilierenMarkierenSeparieren
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

4 href='./../../funktionsreferenzen/xprofan/wend/'>Wend

 
16.07.2007  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

2.358 Views

Untitledvor 0 min.
Georg Teles26.03.2023
AndreasS02.12.2018
lange-jens10.07.2014
Arnthorr08.04.2013
Di più...

Themeninformationen

Dieses Thema hat 1 subscriber:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie