PureBasic

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

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

Bon,

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

Merci
GallyHC

PureBasic

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

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

Re: Lire une clef specifique mais j'y arrive pas...

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