XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Registry: Registryschlüssel löschen
RegDeleteKey löscht einen Registryschlüssel.
L1(Param.1 Longint ): Handle eines schon geöffneten Keys als LongInt oder folgende vordefinierte Werte =>
HKEY_CLASSES_ROOT = $80000000
HKEY_CURRENT_USER = $80000001
HKEY_LOCAL_MACHINE = $80000002
HKEY_USERS = $80000003
S2(Param.2 String ) oder L3(Param.3 Longint ): String oder Adresse eines Unterschlüssels der gelöscht werden soll.
Unter Windows NT-basierten Systemen kann die Funktion keine Schlüssel löschen, die Unterschlüssel haben!
Declare Handle#,Fehler&,Key#,Name#,Wert#,Size#,Type#,Button&
Def @Regclosekey(1) !ADVAPI32,RegCloseKey
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 Type#,4
String Key#,0=SoftwareAH Test
Let Fehler&=@Regcreatekey($80000001,Key#,Handle#)
Print Fehlercode beim Erstellen/Öffenen des Schlüssels SoftwareMMJ-Test: ;Fehler&

If Fehler&=0

    Print Fehlercode RegCloseKey: ;@Regclosekey(@Long(Handle#,0))

Endif

Dispose Type#
Dispose Wert#
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

Wend