FunctionDeleteKey(ByVal hKey As eHKey, ByVal Section As
String)
On
Error
Resume
Next</li>
DimKeyValue As Long
DimSubKey() As
String</li>
CallReadRegistryKeys(hKey, Section, SubKey) <samp>'// On cherhce les clés contenu dans la clé</samp></li>
Dimi As Integer
Fori = 0 To
UBound(SubKey) <samp>'// Boucle sur toutes les clés qui sont dans la clé</samp></li>
IfErr.Number = 9
Then
Exit
For<samp>'// Si li n'y a pas de clé on quitte la boucle</samp></li>
CallDeleteKey(hKey, Section & <var>""</var> & SubKey(i)) <samp>'// Rapelle la fonction pour supprimer les clés qui sont dans les clés trouvé</samp></li>
Clear<samp>'// Efface les erreurs</samp></li>
CallRegOpenKeyEx(hKey, vbNullChar, 0&, KEY_ALL_ACCESS, KeyValue) <samp>'// Ouverture</samp></li>
CallRegDeleteKey(KeyValue, Section & <var>""</var> & SubKey(i)) <samp>'// Supprime la clé</samp></li>
CallRegCloseKey(KeyValue) <samp>'// Fermeture</samp></li>
Nexti
CallRegOpenKeyEx(hKey, vbNullChar, 0&, KEY_ALL_ACCESS, KeyValue) <samp>'// Ouverture</samp></li>
CallRegDeleteKey(KeyValue, Section) <samp>'// Supprime la clé du début</samp></li>
CallRegCloseKey(KeyValue) <samp>'// Fermeture</samp></li>
End
Function<samp>' _</samp></li>
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question