Private Sub Command1_Click()
Dim MaCle As Long
Dim Chaine As String
RegCreateKey HKEY_CURRENT_USER, "TEST", MaCle
Chaine =3D "Nicolas"
RegSetValueEx MaCle, "MaValeur", 0, 1, Chaine, Len
(Chaine) + 1
End Sub
Le probl=E8me est que quand je consulte dans le registre,=20
j'ai un charabia=E0 la place de "Nicolas"
Private Sub Command1_Click() Dim MaCle As Long Dim Chaine As String RegCreateKey HKEY_CURRENT_USER, "TEST", MaCle Chaine = "Nicolas" RegSetValueEx MaCle, "MaValeur", 0, 1, Chaine, Len (Chaine) + 1 End Sub
Le problème est que quand je consulte dans le registre, j'ai un charabiaà la place de "Nicolas"
Qui saura m'aider ? Merci
Nicolas .
Je pense qu'il faut que tu rajoutes un null terminety
avec les API sur ta chaine Nicolas et la dimensionner
en général je fais cela
Dim Chaine As String * 255
chaine = String(255,0)
chaine= "nicolas"
dis moi si ca marche
-----Message d'origine-----
Bonjour,
Je souhaite créer la valeur chaine nom "MaValeur" et de
valeur "Nicolas" dans la clé "TEST" de HKEY_CURRENT_USER
Private Sub Command1_Click()
Dim MaCle As Long
Dim Chaine As String
RegCreateKey HKEY_CURRENT_USER, "TEST", MaCle
Chaine = "Nicolas"
RegSetValueEx MaCle, "MaValeur", 0, 1, Chaine, Len
(Chaine) + 1
End Sub
Le problème est que quand je consulte dans le registre,
j'ai un charabiaà la place de "Nicolas"
Private Sub Command1_Click() Dim MaCle As Long Dim Chaine As String RegCreateKey HKEY_CURRENT_USER, "TEST", MaCle Chaine = "Nicolas" RegSetValueEx MaCle, "MaValeur", 0, 1, Chaine, Len (Chaine) + 1 End Sub
Le problème est que quand je consulte dans le registre, j'ai un charabiaà la place de "Nicolas"
