XProfan

Français

ASKTEC

allô zusammen,

comment peux je sous XProfan vérifier, si un Registry-Key vorhanden ou non? ReadIni bringt oui une Fehlermeldung, si qui Key pas vorhanden ist...

Vielen Dank pour Eure Aider...

Salut

Andreas

Profan 7.6 / XProfan 8 / XProfan 9 ~ W2k Prof. / Win XP Prof. ~ AMD XP2000+ / P4 3.80 GHz

08.12.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

comme Administrator devrait cela toujours so aller:
Kompilieren Marque Séparation

Def @RegOpenKeyEx(5) !"ADVAPI32","RegOpenKeyExA"
Def @RegCloseKey(1) !"ADVAPI32","RegCloseKey"
Declare Oberschlüssel$,Oberschlüssel&,Key$,Vorhanden&
Declare KEY_HANDLE&
Windowstyle 31
Windowtitle "Registryschlüssel vorhanden??"
Window 0,0-640,440
LET Oberschlüssel$=" "

WHILE Oberschlüssel$<>""

    LET Oberschlüssel$=@INPUT$("Oberschlüssel eingeben","Existiert Schlüssel?","HKEY_LOKAL_MACHINE")

    IF Oberschlüssel$<>""

        LET KEY$=@INPUT$("Oberschlüssel eingeben","Existiert Schlüssel?","Software")

        IF Oberschlüssel$="HKEY_LOKAL_MACHINE"

            LET Oberschlüssel&=$80000002

        ElseIF Oberschlüssel$="HKEY_CLASSES_ROOT"

            LET Oberschlüssel&=$80000000

        ElseIF Oberschlüssel$="HKEY_CURRENT_CONFIG"

            LET Oberschlüssel&=$80000005

        ElseIF Oberschlüssel$="HKEY_CURRENT_USER"

            LET Oberschlüssel&=$80000001

        ElseIF Oberschlüssel$="HKEY_USERS"

            LET Oberschlüssel&=$80000003

        ElseIF Oberschlüssel$="HKEY_DYN_DATA"

            LET Oberschlüssel&=$80000006

        ElseIF Oberschlüssel$="HKEY_PERFORMANCE_DATA"

            LET Oberschlüssel&=$80000004

        endif

        LET VORHANDEN&=@RegOpenKeyEx(Oberschlüssel&,@ADDR(KEY$),0,$40000,@ADDR(KEY_HANDLE&))

        IF VORHANDEN&=0

            PRINT "Schlüssel "+Oberschlüssel$+""+Key$+" ist vorhanden!"
            @RegCloseKey(KEY_HANDLE&)

        elseIF VORHANDEN&=2

            PRINT "Schlüssel "+Oberschlüssel$+""+Key$+" ist nicht vorhanden!"

        Else

            PRINT "Über Schlüssel "+Oberschlüssel$+""+Key$+" kann ich keine Aussage treffen!"

        endif

    endif

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

je exposition mais encore einmal oui c'est ca pour...

09.12.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Kleine Fehlerkorrektur (leg mich juste dormir)
Kompilieren Marque Séparation

Def @RegOpenKeyEx(5) !"ADVAPI32","RegOpenKeyExA"
Def @RegCloseKey(1) !"ADVAPI32","RegCloseKey"
Declare Oberschlüssel$,Oberschlüssel&,Key$,Vorhanden&
Declare KEY_HANDLE&
Windowstyle 31
Windowtitle "Registryschlüssel vorhanden??"
Window 0,0-640,440
LET Oberschlüssel$=" "

WHILE Oberschlüssel$<>""

    LET Oberschlüssel$=@INPUT$("Oberschlüssel eingeben","Existiert Schlüssel?","HKEY_LOKAL_MACHINE")

    IF Oberschlüssel$<>""

        LET KEY$=@INPUT$("Oberschlüssel eingeben","Existiert Schlüssel?","Software")

        IF Oberschlüssel$="HKEY_LOKAL_MACHINE"

            LET Oberschlüssel&=$80000002

        ElseIF Oberschlüssel$="HKEY_CLASSES_ROOT"

            LET Oberschlüssel&=$80000000

        ElseIF Oberschlüssel$="HKEY_CURRENT_CONFIG"

            LET Oberschlüssel&=$80000005

        ElseIF Oberschlüssel$="HKEY_CURRENT_USER"

            LET Oberschlüssel&=$80000001

        ElseIF Oberschlüssel$="HKEY_USERS"

            LET Oberschlüssel&=$80000003

        ElseIF Oberschlüssel$="HKEY_DYN_DATA"

            LET Oberschlüssel&=$80000006

        ElseIF Oberschlüssel$="HKEY_PERFORMANCE_DATA"

            LET Oberschlüssel&=$80000004

        ELSE

            LET Oberschlüssel&=0

        endif

        LET VORHANDEN&=@RegOpenKeyEx(Oberschlüssel&,@ADDR(KEY$),0,$40000,@ADDR(KEY_HANDLE&))

        IF VORHANDEN&=0

            PRINT "Schlüssel "+Oberschlüssel$+""+Key$+" ist vorhanden!"
            @RegCloseKey(KEY_HANDLE&)

        elseIF VORHANDEN&=2

            PRINT "Schlüssel "+Oberschlüssel$+""+Key$+" ist nicht vorhanden!"

        Elseif VORHANDEN&=6

            PRINT "Schlüssel "+Oberschlüssel$+""+Key$+" ist nicht vorhanden!"

        Elseif VORHANDEN&=1010

            PRINT "Schlüssel "+Oberschlüssel$+""+Key$+" ist nicht vorhanden!"

        elseif VORHANDEN&=5

            PRINT "Schlüssel "+Oberschlüssel$+""+Key$+" ist vorhanden!"

        else

            PRINT "Über Schlüssel "+Oberschlüssel$+""+Key$+" kann ich keine Aussage treffen!",VORHANDEN&

        endif

    Wend