VÉRIFIER SI UNE CLÉ EXISTE DANS LA BASE DE REGISTRE
ThunderPsycho
Messages postés
180
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
4 février 2007
-
13 juin 2003 à 07:31
denispixies Messages postés 1 Date d'inscription samedi 21 janvier 2006 Statut Membre Dernière intervention 20 décembre 2011 - 20 déc. 2011 à 14:33
denispixies Messages postés 1 Date d'inscription samedi 21 janvier 2006 Statut Membre Dernière intervention 20 décembre 2011 - 20 déc. 2011 à 14:33
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7477-verifier-si-une-cle-existe-dans-la-base-de-registre
https://codes-sources.commentcamarche.net/source/7477-verifier-si-une-cle-existe-dans-la-base-de-registre
20 déc. 2011 à 14:33
merci pour le script qui fonctionne très bien.
27 juin 2004 à 16:58
je suis dsl mais je débute et je connais pas trop.
3 juil. 2003 à 10:30
Merci !
26 juin 2003 à 11:45
Sympa ce tit code pe etre utile merci Mrx3 :)
14 juin 2003 à 09:55
Pour les contrôles ActiveX, il suffit de faire CreateObject : s'il n'y a pas d'erreur, c'est que le contrôle est bien enregistré : c'est très simple, mais cela oblige à instancier le contrôle effectivement.
13 juin 2003 à 13:06
m'en suis encore servi ce matin
moi je l'utilise sans fonction, mais le principe c le meme, lire une cle et gerer l'erreur avec le On error resume next...
13 juin 2003 à 13:06
13 juin 2003 à 12:54
13 juin 2003 à 12:47
13 juin 2003 à 12:11
13 juin 2003 à 11:02
13 juin 2003 à 11:01
13 juin 2003 à 09:40
Public Shared Function bCleRegistreExiste(ByVal sCle$) As Boolean
' Vérifier si une clé existe dans la base de registre
' c'est utile pour savoir si un contrôle ActiveX est enregistré
Dim sValCle$
Try
' This call goes to the Catch block if the registry key is not set.
Dim myRegKey As Microsoft.Win32.RegistryKey = _
Microsoft.Win32.Registry.ClassesRoot
myRegKey = myRegKey.OpenSubKey(sCle)
Dim sSousCle$ = "" ' Sous-clé par défaut
Dim oValue As Object = myRegKey.GetValue(sSousCle)
sValCle = CStr(oValue)
bCleRegistreExiste = True ' On peut lire cette clé, donc elle existe
Catch
sValCle = ""
End Try
'MsgBox(sValCle)
Exit Function
End Function
Si quelqu'un trouve la solution pour VB6, je suis preneur !
13 juin 2003 à 07:31
J'aime bien l'exemple d'utilisation de la fonction ;o)))