PureBasic Forums - English

Code: Select all

;
; Recursive registry delete routine, to be compatible with all windows versions
;
Procedure RegDeleteKeysRecursive(StartKey, pKeyName$)

  Result = ~#ERROR_SUCCESS
  
  If pKeyName$
  
    Result = RegOpenKeyEx_(StartKey, pKeyName$, 0, #KEY_ENUMERATE_SUB_KEYS | #DELETE, @Key )
    If Result = #ERROR_SUCCESS
    
      SubKeyName$ = Space(512)
    
      While Result = #ERROR_SUCCESS And Quit = 0
        SubKeyLength = 512
        Result = RegEnumKeyEx_(Key, SubKeyIndex, SubKeyName$, @SubKeyLength, 0, 0, 0, 0)
        SubKeyIndex+1
        
        If Result = #ERROR_NO_MORE_ITEMS
          Result = RegDeleteKey_(StartKey, pKeyName$)
          Quit = 1
          
        ElseIf Result = #ERROR_SUCCESS
                 
          SubKeyIndex-1
          If RegDeleteKeysRecursive(Key, SubKeyName$)
            Result = #ERROR_SUCCESS;
          EndIf
        EndIf
      Wend
      
      RegCloseKey_(Key)
    EndIf
  EndIf
    
  If Result = #ERROR_SUCCESS
    ProcedureReturn 1
  Else
    ProcedureReturn 0
  EndIf 

EndProcedure


; Test here... WARNING, it could be dangerous !
;
RegDeleteKeysRecursive(#HKEY_CURRENT_USER, "Software\YourFavoriteSoftwareHere")

Code: Select all

Procedure Reg_DeleteKeyWithAllSub(topKey,sKeyName.s,ComputerName.s)
  i=0
  a$=""
  Repeat
    b$=a$
    a$=Reg_ListSubKey(topKey,sKeyName,0,"")
    If a$<>""
      Reg_DeleteKeyWithAllSub(topKey,sKeyName+"\"+a$,"")
    EndIf
  Until a$=b$
  Reg_DeleteKey(topKey, sKeyName, ComputerName) 
EndProcedure

Code: Select all

If OpenLibrary(0, "SHLWAPI.DLL")

  *F = IsFunction(0, "SHDeleteKeyA")
  If *F
    CallFunctionFast(*F,#HKEY_CURRENT_USER, "Software\test")
  EndIf
  
  CloseLibrary(0)
EndIf