XProfan

Español

Descripción:

RegOpenKeyEx öffnet una Registry Schlüssel y liefert dessen Handle a Bearbeitung oder para Auslesen.

Deklaration:

Def @RegOpenKeyEx(5) !ADVAPI32,RegOpenKeyExA

Parámetro:

1.Parámetro: Handle uno ya geöffneten Keys como LongInt oder folgende vordefinierte Werte =>
-HKEY_CLASSES_ROOT = $80000000
-HKEY_CURRENT_USER = $80000001
-HKEY_LOCAL_MACHINE = $80000002
-HKEY_USERS = $80000003

2.Parámetro: Adresse uno Unterschlüssels oder Bereichsvariable con un Unterschlüssel, el geöffnet voluntad se.

3.Parámetro: Reserviert, muß 0 ser.

4.Parámetro: Welche Zugriff möchte uno en el Schlüssel haben? Werte puede con | addiert voluntad.
-$0020 = Yo voluntad una symbolischen Link erzeugen.
-$0004 = Yo voluntad una Unterschlüssel erzeugen.
-$0008 = Yo voluntad Unterschlüssel auflisten.
-$20019 = Yo voluntad sólo auslesen.
-$0010 = Aktiviert el Änderungsbenachrichtigung para el Schlüssel.
-$0001 = Erlaubt, daß Unterschlüssel abgefragt voluntad.
-$0002 = Erlaubt el Carta de Werten en Unterschlüssel.
-$F003F = Alle Arten de Zugriffen.
-$20006 = Kompletter Schreibzugriff.

5.Parámetro: 4 Byte Bereichsvariable, el el Handle des Keys aufnimmt.

Rückgabewert:

0 en Erfolg, en Misserfolg una Valor <>0 (Fehlercode).

Beispiele:

Kompilieren Marca Separación

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