XProfan

Français

Beschreibung:

RegDeleteValue löscht une Wert dans einem Registryschlüssel

Deklaration:

DEF @RegDeleteValue(2) !ADVAPI32,RegDeleteValueA

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 Cordes avec dem Namen des Wertes ou bien Bereichsvariable avec dem Namen des Wertes, qui gelöscht volonté soll.

Rückgabewert:

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

Beispiele:

Kompilieren Marque Séparation

Déclarer Handle#,FEHLER&,Key#,nom#,Wert#,Size#,Type#,Button&,Button2&
Déclarer WriteWert$,Wert2#
DEF @RegCloseKey(1) !"ADVAPI32","RegCloseKey"
DEF @RegSetValueEx(6) !"ADVAPI32","RegSetValueExA"
DEF @RegCreateKey(3)!"ADVAPI32","RegCreateKeyA"
DEF @RegDeleteKey(2) !"ADVAPI32","RegDeleteKeyA"
DEF @RegDeleteValue(2) !"ADVAPI32","RegDeleteValueA"
Def @RegOpenKeyEx(5) !"ADVAPI32","RegOpenKeyExA"
Windowstyle 31
Windowtitle "Registryschlüssel erstellen"
Fenêtre 0,0-640,440
Laisser Button&=@Createbutton(%HWND,"Schlüssel löschen",20,300,200,30)
Laisser Button2&=@Createbutton(%HWND,"Werte löschen",320,300,200,30)
DIM Key#,260
DIM Handle#,4
DIM nom#,250
DIM Size#,4
DIM Wert#,260
DIM Wert2#,4
Faible Type#,4
String Key#,0="SoftwareAH Test"
LET Fehler&=@RegCreateKey($80000001,Key#,Handle#)
Imprimer "Fehlercode beim Erstellen/Öffenen des Schlüssels SoftwareAH Test: ";Fehler&

IF Fehler&=0

    LET Writewert$="Meine Software"
    String Wert#,0="Softwarepfad"
    LET FEHLER&=@RegSetValueEx(@Long(Handle#,0),@addr(WriteWert$),0,1,Wert#,@len("Softwarepfad")+1)
    Imprimer "Fehlercode RegSetValueEx Softwarepfad: ";Fehler&
    LET Writewert$="Seriennummer"
    Long Wert2#,0=22334
    LET FEHLER&=@RegSetValueEx(@Long(Handle#,0),@addr(WriteWert$),0,4,Wert#,4)
    Imprimer "Fehlercode RegSetValueEx Seriennummer: ";Fehler&
    LET Writewert$="Byteliste"
    Claire Wert#
    Byte Wert#,0=65
    Byte Wert#,1=66
    Byte Wert#,2=67
    Byte Wert#,3=68
    LET FEHLER&=@RegSetValueEx(@Long(Handle#,0),@addr(WriteWert$),0,3,Wert#,10)
    Imprimer "Fehlercode RegSetValueEx Byteliste: ";Fehler&
    Imprimer "Fehlercode RegCloseKey: ";@RegCloseKey(@Long(Handle#,0))

Endif

Dispose Type#
Dispose Wert#
Dispose Wert2#
Dispose clé#
Dispose Handle#
Dispose nom#
Dispose Size#

Tandis que 0=0

    Waitinput

    Si @Getfocus(Button&)

        DIM Key#,260
        Imprimer »
        String Key#,0="SoftwareAH Test"
        LET Fehler&=@RegDeleteKey($80000001,Key#)
        Imprimer "Fehlercode beim Effacer des Schlüssels SoftwareAH Test: ";Fehler&
        Dispose clé#
        @SetFocus(%HWND)

    elseIf @Getfocus(Button2&)

        Imprimer »
        DIM Key#,260
        Faible Handle#,4
        Faible nom#,256
        String Key#,0="SoftwareAH Test"
        LET FEHLER&=@RegOpenKeyEx($80000001,Key#,0,$F003F,Handle#)
        Imprimer "Fehlercode beim Öffnen des Schlüssels SoftwareAH Test: ";Fehler&

        IF Fehler&=0

            String nom#,0="Meine Software"
            LET Fehler&=@RegDeleteValue(@Long(Handle#,0),nom#)
            Imprimer "Fehlercode beim Effacer des Wertes mon Software: ";Fehler&
            String nom#,0="Seriennummer"
            LET Fehler&=@RegDeleteValue(@Long(Handle#,0),nom#)
            Imprimer "Fehlercode beim Effacer des Wertes Seriennummer: ";Fehler&
            String nom#,0="Byteliste"
            LET Fehler&=@RegDeleteValue(@Long(Handle#,0),nom#)
            Imprimer "Fehlercode beim Effacer des Wertes Byteliste: ";Fehler&
            Imprimer "Fehlercode RegCloseKey: ";@RegCloseKey(@Long(Handle#,0))

        endif

        Dispose clé#
        Dispose Handle#
        Dispose nom#
        @SetFocus(%HWND)

    endif

Wend