XProfan

Declarar Handle#,FEHLER&,Key#,Name#,Valor#,Size#,Type#,Button&,Button2&
Declarar WriteWert$,Valor2#
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"
Ventana 0,0-640,440
Let Button&=@Createbutton(%HWND,"Schlüssel löschen",20,300,200,30)
Let Button2&=@Createbutton(%HWND,"Werte löschen",320,300,200,30)
DIM Key#,260
DIM Handle#,4
DIM Name#,250
DIM Size#,4
DIM Valor#,260
DIM Valor2#,4
Dim Type#,4
String Key#,0="SoftwareAH Test"
LET Fehler&=@RegCreateKey($80000001,Key#,Handle#)
Imprimir "Fehlercode beim Erstellen/Öffenen des Schlüssels SoftwareAH Test: ";Fehler&

IF Fehler&=0

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

Endif

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

Mientras que 0=0

    Waitinput

    If @Getfocus(Button&)

        DIM Key#,260
        Imprimir ""
        String Key#,0="SoftwareAH Test"
        LET Fehler&=@RegDeleteKey($80000001,Key#)
        Imprimir "Fehlercode beim Löschen des Schlüssels SoftwareAH Test: ";Fehler&
        Disponer key#
        @SetFocus(%HWND)

    elseIf @Getfocus(Button2&)

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

        IF Fehler&=0

            String Name#,0="Meine Software"
            LET Fehler&=@RegDeleteValue(@Largo(Handle#,0),Name#)
            Imprimir "Fehlercode beim Löschen des Wertes Mi Software: ";Fehler&
            String Name#,0="Seriennummer"
            LET Fehler&=@RegDeleteValue(@Largo(Handle#,0),Name#)
            Imprimir "Fehlercode beim Löschen des Wertes Seriennummer: ";Fehler&
            String Name#,0="Byteliste"
            LET Fehler&=@RegDeleteValue(@Largo(Handle#,0),Name#)
            Imprimir "Fehlercode beim Löschen des Wertes Byteliste: ";Fehler&
            Imprimir "Fehlercode RegCloseKey: ";@RegCloseKey(@Largo(Handle#,0))

        endif

        Disponer key#
        Disponer Handle#
        Disponer Name#
        @SetFocus(%HWND)

    endif

wend