Discussion :

[Menerlach]

Bonjour

Je sais, il y a déjà des discutions sur ce sujet mais il n'est question que de créer ou supprimer une clé, écrire ou lire les données d'une clé, mon projet est différent.
Le but est d'accompagner le déplacement d'une application, par exemple déplacer D:\bidule\tartampion.exe en E:\machin\truc\tartampion.exe. Il ne suffit pas bien sûr de couper coller l'application, en plus il faut changer ses références dans le registre, en l'occurrence chercher toutes les données D:\bidule\tartampion.exe et les remplacer par E:\machin\truc\tartampion.exe.
Il s'agit donc de chercher des données dans la base de registre sans en connaitre la clé puis de modifier ces données.

Voila, voila, si jamais vous savez comment faire je vous en serais très reconnaissant.

Merci

[Menerlach]

Bonjour,

J'ai trouvé, les fonctions API RegEnumKeyEx et RegEnumValue font exactement ce dont j'avais besoin, la doc est facile à trouver une fois qu'on a leurs noms... encore faut-il l'avoir !
J'ai posté un petit programme de démonstration (Cherche texte dans registre) pour montrer ce qui peut être fait avec ces outils.

[DarkVader]

Bonjour,
Sinon cela se fait aussi mais en 2 lignes avec la librairie vb6i

exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Form_Load()
    Me.AutoRedraw = True
    Me.Width = 7000
    Me.Height = 15000
 
    Dim x       As Long, y           As Long
    Dim HK      As Long, sPath       As String
    Dim aKeys() As String, aValues() As REG_VALUE_INFOS
 
    sPath = "Software\Microsoft\Visual Basic\6.0\Addins"
    HK = HKEY_CURRENT_USER
 
    With Registry
        For x = 1 To .EnumKeys(HK, sPath, aKeys())
                Me.Print x, sPath & "\" & aKeys(x)
 
            For y = 1 To .EnumValues(HK, sPath & "\" & aKeys(x), aValues())
                Me.Print , y, aValues(y).Name & " = " & aValues(y).Value & " (" & aValues(y).Type & ")"
            Next
        Next
        Me.Print
    End With
 
End Sub