Lire une clef specifique mais j'y arrive pas... (Resolu)

[GallyHC]

Bonjour tout le monde,

j'aissais de lire une clef specifique j'ai a chaque fois je n'ai aucune valeur. La clef en question est (pris avec Regedit) :

Code : Tout sélectionner

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\USBSTOR\Disk&Ven_TomTom&Prod_GO\M61257xxxxxx&0]
"ParentIdPrefix"="7&3b5b1f32&0"

le code que j'utilise je l'ai trouvais ici :

Code : Tout sélectionner

EnableExplicit

Procedure.s GetKey()
    Define *clef
    Define lDataLen.l 
    Define hKey.l 
    *clef = AllocateMemory(100) 
    
    If RegOpenKey_(#HKEY_LOCAL_MACHINE, "\SYSTEM\CurrentControlSet\Enum\USBSTOR\Disk&Ven_TomTom&Prod_GO\M61257xxxxxx&0\ParentIdPrefix", @hKey) = #ERROR_SUCCESS 
        lDataLen = 100

        If RegQueryValueEx_(hKey, "", 0, "REG_SZ", *clef, @lDataLen) = #ERROR_SUCCESS 
            RegCloseKey_(hKey) 
        Else
            RegCloseKey_(hKey) 
            ProcedureReturn "" 
        EndIf 
    Else 
        ProcedureReturn "" 
    EndIf 
    ProcedureReturn PeekS(*clef)

EndProcedure 


Debug GetKey() 

Quelqu'un aurait une idee sur mon problème,
Merci d'avance,
GallyHC

[Ar-S]

Déjà je ne suis pas sur que de commencer ta clé par "\" soit judicieux.

Code : Tout sélectionner

If RegOpenKey_(#HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Enum\USBSTOR\Disk&Ven_TomTom&Prod_GO\M61257xxxxxx&0\ParentIdPrefix", @hKey) = #ERROR_SUCCESS  

essaye sans.
Si ça ne marche pas, essaye ce code : http://www.purebasic.fr/french/viewtopi ... 40#p111840
il marche

[GallyHC]

Bon,

juste une seule chose, le seul code que je n'est pas teste fonctionne lolll

Merci
GallyHC