XProfan

Declare lever#,FEHLER&,Key#,name#,worth#,Size#,Type#,Button&,Button2&
Declare WriteWert$,worth2#
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"
Window 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 lever#,4
DIM name#,250
DIM Size#,4
DIM worth#,260
DIM worth2#,4
Dim Type#,4
String Key#,0="SoftwareAH Test"
LET Fehler&=@RegCreateKey($80000001,Key#,lever#)
Print "Fehlercode at create/Öffenen the Schlüssels SoftwareAH Test: ";Fehler&

IF Fehler&=0

    LET Writewert$="Meine Software"
    String worth#,0="Softwarepfad"
    LET FEHLER&=@RegSetValueEx(@Long(lever#,0),@addr(WriteWert$),0,1,worth#,@len("Softwarepfad")+1)
    Print "Fehlercode RegSetValueEx Softwarepfad: ";Fehler&
    LET Writewert$="Seriennummer"
    Long worth2#,0=22334
    LET FEHLER&=@RegSetValueEx(@Long(lever#,0),@addr(WriteWert$),0,4,worth#,4)
    Print "Fehlercode RegSetValueEx serial number: ";Fehler&
    LET Writewert$="Byteliste"
    Clear worth#
    byte worth#,0=65
    byte worth#,1=66
    byte worth#,2=67
    byte worth#,3=68
    LET FEHLER&=@RegSetValueEx(@Long(lever#,0),@addr(WriteWert$),0,3,worth#,10)
    Print "Fehlercode RegSetValueEx Byteliste: ";Fehler&
    Print "Fehlercode RegCloseKey: ";@RegCloseKey(@Long(lever#,0))

Endif

Dispose Type#
Dispose worth#
Dispose worth2#
Dispose key#
Dispose lever#
Dispose name#
Dispose Size#

While 0=0

    Waitinput

    If @Getfocus(Button&)

        DIM Key#,260
        Print ""
        String Key#,0="SoftwareAH Test"
        LET Fehler&=@RegDeleteKey($80000001,Key#)
        Print "Fehlercode at Delete the Schlüssels SoftwareAH Test: ";Fehler&
        Dispose key#
        @SetFocus(%HWND)

    elseIf @Getfocus(Button2&)

        Print ""
        DIM Key#,260
        Dim lever#,4
        Dim name#,256
        String Key#,0="SoftwareAH Test"
        LET FEHLER&=@RegOpenKeyEx($80000001,Key#,0,$F003F,lever#)
        Print "Fehlercode at Open the Schlüssels SoftwareAH Test: ";Fehler&

        IF Fehler&=0

            String name#,0="Meine Software"
            LET Fehler&=@RegDeleteValue(@Long(lever#,0),name#)
            Print "Fehlercode at Delete the Wertes my software: ";Fehler&
            String name#,0="Seriennummer"
            LET Fehler&=@RegDeleteValue(@Long(lever#,0),name#)
            Print "Fehlercode at Delete the Wertes serial number: ";Fehler&
            String name#,0="Byteliste"
            LET Fehler&=@RegDeleteValue(@Long(lever#,0),name#)
            Print "Fehlercode at Delete the Wertes Byteliste: ";Fehler&
            Print "Fehlercode RegCloseKey: ";@RegCloseKey(@Long(lever#,0))

        endif

        Dispose key#
        Dispose lever#
        Dispose name#
        @SetFocus(%HWND)

    endif

wend