XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Registry: Daten in einen geöffneten Schlüssel speichern
Declare Handle#,Fehler&,Key#,Name#,Wert#,Size#,Type#,Button&
Declare Writewert$,Wert2#
Def @Regclosekey(1) !ADVAPI32,RegCloseKey
Def @Regsetvalueex(6) !ADVAPI32,RegSetValueExA
Def @Regcreatekey(3)!ADVAPI32,RegCreateKeyA
Def @Regdeletekey(2) !ADVAPI32,RegDeleteKeyA
Windowstyle 31
Windowtitle Registryschlüssel erstellen
Window 0,0-640,440
Let Button&=@Createbutton(%Hwnd,Schlüssel löschen,20,300,200,30)
Dim Key#,260
Dim Handle#,4
Dim Name#,250
Dim Size#,4
Dim Wert#,260
Dim Wert2#,4
Dim Type#,4
String Key#,0=SoftwareMMJ-Test
Let Fehler&=@Regcreatekey($80000001,Key#,Handle#)
Print Fehlercode beim Erstellen/Öffenen des Schlüssels SoftwareMMJ-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)
    Print Fehlercode RegSetValueEx Softwarepfad: ;Fehler&
    Let Writewert$=Seriennummer
    Long Wert2#,0=22334
    Let Fehler&=@Regsetvalueex(@Long(Handle#,0),@Addr(Writewert$),0,4,Wert#,4)
    Print Fehlercode RegSetValueEx Seriennummer: ;Fehler&
    Let Writewert$=Byteliste
    Clear 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)
    Print Fehlercode RegSetValueEx Byteliste: ;Fehler&
    Print Fehlercode RegCloseKey: ;@Regclosekey(@Long(Handle#,0))

Endif

Dispose Type#
Dispose Wert#
Dispose Wert2#
Dispose Key#
Dispose Handle#
Dispose Name#
Dispose Size#

While 0=0

    Waitinput

    If @Getfocus(Button&)

        Dim Key#,260
        Print
        String Key#,0=SoftwareMMJ-Test
        Let Fehler&=@Regdeletekey($80000001,Key#)
        Print Fehlercode beim Löschen des Schlüssels SoftwareMMJ-Test: ;Fehler&
        Dispose Key#
        @Setfocus(%Hwnd)

    Endif

<