cs_elKa
Messages postés6Date d'inscriptionlundi 18 novembre 2002StatutMembreDernière intervention21 mars 2003
-
19 mars 2003 à 20:23
fredlynx
Messages postés662Date d'inscriptionmercredi 16 janvier 2002StatutModérateurDernière intervention16 octobre 2010
-
19 mars 2003 à 21:11
Voila g besoin pour une de mes applications que le programme me liste dans un liste box toutes les clefs de la base de registre se trouvant dans le dossier run (les progs qui se lancent au démarrage de windows). J'arrive a lire une clé si je connais son nom, m'ais j'arrive pas a lister les clefs d'un meme repertoire :( Merci de votre aide
fredlynx
Messages postés662Date d'inscriptionmercredi 16 janvier 2002StatutModérateurDernière intervention16 octobre 20103 19 mars 2003 à 21:11
Merde tu as raison :(
Bon alors tu ouvres juste le module : BaseRegistre.bas
dans ton code tu ajoute ça ....
ceci liste et lie toutes les clefs de run dans machine et ecrit dans le fenêtre de débug...
Dim TableClef As Variant
Dim Boucle As Integer
TableClef = LitToutesValeur(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run")
For Boucle = 0 To UBound(TableClef)
Select Case TableClef(Boucle, 1)
Case REG_SZ
Debug.Print LitValeurChaine(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", CStr(TableClef(Boucle, 0)))
Case REG_BINARY
Debug.Print LitValeurByte(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", CStr(TableClef(Boucle, 0)))
Case REG_DWORD
Debug.Print LitValeurLong(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", CStr(TableClef(Boucle, 0)))
End Select
Next