ISProvider.DeleteRegistryKey

Example

Delete the provider's selected registry key.

Dim aFilter 
Dim aProviders
Dim aProvider
Dim aAllRegKeys
Dim aRegKeyShortCode
Dim aRegKey
Dim aMessage

aRegKeyShortCode = "POI"
Set aFilter = Profile.CreateProvidersFilter

aFilter.Category = 2 'pcProvider  

set aProviders = Profile.LoadProvidersByFilter(aFilter)
aMessage = aMessage & vbNewLine &_
  "The number of the providers is " & aProviders.Count

for each aProvider in aProviders
  aMessage = aMessage & vbNewLine & aProvider.FullName 
  set aRegKey = aProvider.AddRegistryKey(aRegKeyShortCode, "NiceValue") 
  aProvider.Save
  
  set aAllRegKeys = aProvider.GetRegistryKeys   
  aMessage = aMessage & vbNewLine &_
    "   Registry Keys Count BEFORE DELETING = " & aAllRegKeys.Count
  
  set aRegKey = aAllRegKeys.Item(0) 
  aProvider.DeleteRegistryKey(aRegKey)
  
  set aAllRegKeys = aProvider.GetRegistryKeys
  aMessage = aMessage & vbNewLine &_
    "   Registry Keys Count AFTER DELETING= " & aAllRegKeys.Count    
next  
 
Profile.MsgBox (aMessage)