[API] Registre identifier le type de valeur a la lecture ?

FeelCode Messages postés 278 Date d'inscription vendredi 16 avril 2004 Statut Membre Dernière intervention 27 avril 2006 - 7 juin 2004 à 21:56
FeelCode Messages postés 278 Date d'inscription vendredi 16 avril 2004 Statut Membre Dernière intervention 27 avril 2006 - 8 juin 2004 à 10:03
Je cherche l'api qui permet d'identifier le type de valeur lue c est a dire si c est bianais ou dword ou autre,

j'ai toruver comment on écris le tyoe de valeur mai pas comment on identifie le type de valeur et j'ai zieuter par tout api-guide, msn, ProgOtoP API Viewer. etc

Merci pour les infos car c est la seul chose qui me bloque pour terminer le prog %-6

Souriez vous ête lu 8-)

2 réponses

cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 18
7 juin 2004 à 22:26
Salut,
Tu peux peut-être t'inspirer de ce bout de code que j'ai retrouvé dans mes cartons :

Public Const REG_DWORD = 4
Public Const REG_BINARY = 3
Public Const ERROR_SUCCESS = 0

Declare Function RegOpenKey _
Lib "advapi32" Alias "RegOpenKeyA" _
( _
ByVal hKey As Long, _
ByVal lpSubKey As String, _
phkResult As Long _
) As Long

Declare Function RegQueryValueEx _
Lib "advapi32" Alias "RegQueryValueExA" _
( _
ByVal hKey As Long, _
ByVal lpValueName As String, _
ByVal lpReserved As Long, _
lpType As Long, _
lpData As Any, _
lpcbData As Long _
) As Long

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Function GetKeyType(ByVal hKey As Long, ByVal strPath As String, ByVal strValueName As String) As Long
Dim lResult As Long, lValueType As Long, lBuf As Long
Dim lDataBufSize As Long, r As Long, Keyhand As Long
r = RegOpenKey(hKey, strPath, Keyhand)
' Get length/data type
lDataBufSize = 4
lResult = RegQueryValueEx(Keyhand, strValueName, 0&, lValueType, lBuf, lDataBufSize)
If lResult = ERROR_SUCCESS Then
select case lValueType
case REG_DWORD
...
case REG_BINARY
...
case ....
end select
End If
r = RegCloseKey(Keyhand)
End Function

Cordialement

CanisLupus
0
FeelCode Messages postés 278 Date d'inscription vendredi 16 avril 2004 Statut Membre Dernière intervention 27 avril 2006 1
8 juin 2004 à 10:03
ha ben vala un code qui va me servire merci :)
Souriez vous ête lu 8-)
0