XProfan

Français

Beschreibung:

RegOpenKeyEx ouvrez une Registry Schlüssel et liefert dessen Handle zur Bearbeitung ou bien zum Lecture.

Deklaration:

Def @RegOpenKeyEx(5) !ADVAPI32,RegOpenKeyExA

paramètre:

1.paramètre: Handle eines déjà geöffneten Keys comme LongInt ou bien folgende vordefinierte Werte =>
-HKEY_CLASSES_ROOT = $80000000
-HKEY_CURRENT_USER = $80000001
-HKEY_LOCAL_MACHINE = $80000002
-HKEY_USERS = $80000003

2.paramètre: Adresse eines Unterschlüssels ou bien Bereichsvariable avec einem Unterschlüssel, qui ouvert volonté soll.

3.paramètre: Reserviert, doit 0 son.

4.paramètre: quelle Zugriff voudrais on sur den Schlüssel avons? Werte peut avec | addiert volonté.
-$0020 = je veux une symbolischen Link erzeugen.
-$0004 = je veux une Unterschlüssel erzeugen.
-$0008 = je veux Unterschlüssel auflisten.
-$20019 = je veux seulement auslesen.
-$0010 = Aktiviert qui Änderungsbenachrichtigung pour den Schlüssel.
-$0001 = Erlaubt, qui Unterschlüssel abgefragt volonté.
-$0002 = Erlaubt cela écrivons de Werten dans Unterschlüssel.
-$F003F = Alle Arten de Zugriffen.
-$20006 = Kompletter Schreibzugriff.

5.paramètre: 4 Byte Bereichsvariable, qui cela Handle des Keys aufnimmt.

Rückgabewert:

0 chez Erfolg, chez Misserfolg un Wert <>0 (Fehlercode).

Beispiele:

Kompilieren Marque Séparation

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 0=0

    Waitinput

href='./../../function-references/XProfan/Wend/'>Wend