XProfan

Español

Descripción:

RegQueryValueEx liest el Typ y el Daten uno uno Wertes de el Registry de.

Deklaration:

Def @RegQueryValueEx(6) !ADVAPI32,RegQueryValueExA

Parámetro:

1.Parámetro: Handle des Registryschlüssels, el valor enthält como LongInt.

2.Parámetro: Adresse uno Cuerdas con el Namen des auszulesenden Wertes oder una Bereichsvariable, el esta Namen enthält.

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

4.Parámetro: Bereichsvariable, el el Typ des ausgelesenen Wertes empfängt (kann 0 ser) =>
-$3 = Binärer Schlüssel (Bytefolge unterschiedlicher Größe).
-$4 = 4 Byte oder LongIntwert. Oft voluntad sólo el zwei oberen Bytes des Wertes berücksichtigt.
-$5 = 4 Byte oder LongIntwert. El unteren 2 Byte des Wertes voluntad berücksichtigt.
-$2 = String con abschließendem Nullbyte. Kann Umgebungsvariablen enthalten.
-$6 = Ein symbolischer Link en el Unicode Formato.
-$7 = Ein Array nullterminierter Cuerdas.
-$0 = No definierter Datentyp.
-$8 = Treiber Resourcenliste.
-$1 = String con abschließendem Nullbyte sin Umgebungsvariablen.

5.Parámetro: Bereichvariable, el valor empfängt.

6.Parámetro: 4 Byte Bwereichsvariable. Dieser Valor muß en el Größe des Bereichs en Parámetro 4 gesetzt voluntad. Wenn el Función zurückkehrt, es hier el Longitud des ausgelesenen Wertes en Bytes.

Rückgabewert:

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

Beispiele:

Kompilieren Marca Separación

Declarar Handle#,FEHLER&,Key#,Name#,Valor#,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"
Ventana 0,0-640,440
DIM Key#,260
DIM Handle#,4
DIM Name#,250
DIM Size#,4
DIM Valor#,260
Dim Type#,4
String key#,0="SoftwareMicrosoftWindowsCurrentVersionExplorerUser Shell Folders"
LET FEHLER&=@RegOpenKeyEx($80000001,Key#,0,$F003F,Handle#)
Imprimir "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(@Largo(Handle#,0),Name#,0,Type#,Valor#,Size#)
    Imprimir "Fehlercode beim Auslesen des Schlüssels: ";Fehler&
    Imprimir ""
    Imprimir "Das Startmenü des aktuellen Users es hier: "
    Imprimir @String$(Valor#,0)
    Imprimir "Typ des Schlüssels: ";@Largo(Type#,0)
    Imprimir "Länge des Wertes: ";@Largo(Size#,0);" Bytes"
    Imprimir ""
    Imprimir "Fehlercode RegCloseKey: ";@RegCloseKey(@Largo(Handle#,0))

endif

IF Fehler&<>0

    String key#,0="SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders"
    LET FEHLER&=@RegOpenKeyEx($80000001,Key#,0,$F003F,Handle#)
    Imprimir "Fehlercode beim Öffenen des Schlüssels Shell Folders: ";Fehler&
    String Name#,0="Start Menu"
    long Size#,0=260
    Let Fehler&=@RegQueryValueEx(@Largo(Handle#,0),Name#,0,Type#,Valor#,Size#)
    Imprimir "Fehlercode beim Auslesen des Schlüssels: ";Fehler&
    Imprimir ""
    Imprimir "Das Startmenü des aktuellen Users es hier: "
    Imprimir @String$(Valor#,0)
    Imprimir "Typ des Schlüssels: ";@Largo(Type#,0)
    Imprimir "Länge des Wertes: ";@Largo(Size#,0);" Bytes"
    Imprimir ""
    Imprimir "Fehlercode RegCloseKey: ";@RegCloseKey(@Largo(Handle#,0))

endif

IF Fehler&<>0

    Imprimir "Fehler!!!!!! Startmenü podría no ausgelesen voluntad!!!"

endif

Disponer Type#
Disponer Valor#
Disponer key#
Disponer Handle#
Disponer Name#
Disponer Size#

Mientras que 0=0

    Waitinput

wend