[VB6] Pb lecture d'une valeur de type DWORD dans la base de registre

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB6] Pb lecture d'une valeur de type DWORD dans la base de registre

Styx0

Aware, abware !

je dois lire un ensemble de clé dans la base de registre
J'arrive parfaitement à récuperer les données des clés de type Chaine ou Binaryn
mais impossible de lire la valeur d'une clé de type DWORD, ca me retourne tjs 0 (quelque soit la valeur)

Je lis à partir des APIs RegQueryValueEx ..., mais ca marche pas pour les DWORD

Help!

---------------
Galerie Photo (Canon)

Publicité

Styx0

Aware, abware !

personne n'a jamais utilisé la BdR???

---------------
Galerie Photo (Canon)

Guru

Voici une fonction récuppérée a l'époque chez Microsoft...

Code :

Public Function GetKeyValue( _
KeyRoot As Long, _
KeyName As String, _
SubKeyRef As String, _
ByRef KeyVal As String _
) As Boolean
Dim i As Long
Dim rc As Long
Dim hKey As Long
Dim hDepth As Long
Dim KeyValType As Long
Dim tmpVal As String
Dim KeyValSize As Long
rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey)
If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError
tmpVal = String$(1024, 0)
KeyValSize = 1024
rc = RegQueryValueEx(hKey, SubKeyRef, 0, KeyValType, tmpVal, KeyValSize)
If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError
If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then
tmpVal = Left(tmpVal, KeyValSize - 1)
Else
tmpVal = Left(tmpVal, KeyValSize)
End If
Select Case KeyValType
Case REG_SZ
KeyVal = tmpVal
Case rEG_DWORD
For i = Len(tmpVal) To 1 Step - 1
KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1)))
Next
KeyVal = Format$("&h" + KeyVal)
End Select
GetKeyValue = True
rc = RegCloseKey(hKey)
Exit Function
GetKeyError:
KeyVal = ""
GetKeyValue = False
rc = RegCloseKey(hKey)
End Function

Styx0

Aware, abware !

k merci,

entre temps j'en ai trouvé une nickel

a+

---------------
Galerie Photo (Canon)

FORUM HardWare.fr

Programmation

[VB6] Pb lecture d'une valeur de type DWORD dans la base de registre

Sujets relatifs
VB6 est ce que ça existe ???	Un batch qui desactive la lecture seule
Migration d'un base Access vers SQL Server	[VB6] Datalist
Exporter une base MYSQL d'un hébergeur vers un autre....	BASE DE DONNEES ACCES SOUS JAVA ??????
je cherche comment éditer des fichiers de boot de type .bin	[Java] Passer des parametres ayant une valeur par defaut
[VB6] Minimize Form	[ASP] Type chaine...incompatible ???
Plus de sujets relatifs à : [VB6] Pb lecture d'une valeur de type DWORD dans la base de registre

Page générée en 0.052 secondes