[AC-2010] Déclaration API registre & fonctions en 32 & 64 bits

Déclaration API registre & fonctions en 32 & 64 bits

Bonjour

J'ai besoin de faire tourner un projet sous 32 & 64 bits en utilisant les API de registre. Je me suis inspiré du tuto de arkham46 ici pour typer mes variables selon l'environnement en utilisant la commande DefType.

Voilà un bout de code mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
#If Win64 Then
        DefLngPtr Z
    #Else
        DefLng Z
    #End If
 
    #If Win64 Then      
 
        Private Declare PtrSafe Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As LongPtr) As Long
        Private Declare PtrSafe Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As LongPtr, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, phkResult As LongPtr, lpdwDisposition As Long) As LongPtr
        Private Declare PtrSafe Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As LongPtr, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As LongPtr
        Private Declare PtrSafe Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As LongPtr, ByVal lpValueName As String, ByVal lpReserved As LongPtr, lpType As Long, ByVal lpData As String, lpcbData As Long) As LongPtr
        Private Declare PtrSafe Function RegQueryValueExLong Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As LongPtr, ByVal lpValueName As String, ByVal lpReserved As LongPtr, lpType As Long, lpData As Long, lpcbData As Long) As LongPtr
        Private Declare PtrSafe Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As LongPtr, ByVal lpValueName As String, ByVal lpReserved As LongPtr, lpType As Long, ByVal lpData As Long, lpcbData As Long) As LongPtr
        Private Declare PtrSafe Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As LongPtr, ByVal lpValueName As String, ByVal Reserved As LongPtr, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As LongPtr
        Private Declare PtrSafe Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As LongPtr, ByVal lpValueName As String, ByVal Reserved As LongPtr, ByVal dwType As Long, lpValue As Long, ByVal cbData As Long) As LongPtr
 
 #Else
 
        Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
        Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, phkResult As Long, lpdwDisposition As Long) As Long
        Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
        Declare Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
        Declare Function RegQueryValueExLong Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Long, lpcbData As Long) As Long
        Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbData As Long) As Long
        Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
        Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, ByVal cbData As Long) As Long
    #End If
 
Public Function SetValueEx(ByVal zhKey, sValueName As String, zlType, vValue As Variant) As z
 
    Dim zlValue
    Dim sValue As String
 
    Select Case zlType
        Case REG_SZ
            sValue = vValue & Chr$(0)
            SetValueEx = RegSetValueExString(zhKey, sValueName, 0&, zlType, sValue, Len(sValue))
        Case REG_DWORD
            zlValue = vValue
            SetValueEx = RegSetValueExLong(zhKey, sValueName, 0&, zlType, zlValue, 4)
 
        End Select
 
   End Function

Mais à la compilation j'ai le message d'erreur suivant : Type défini par l'utilisateur non défini qui est du à la déclaration de la valeur retorunée par SetValueEx

Code:

SetValueEx(ByVal zhKey, sValueName As String, zlType, vValue As Variant) As z

Merci par avance pour toute aide :pingoin2:

Bonjour,
Oui c'est interresant que signifi Z?

Bonjour rdurupt

J'ai donc déclaré

#If Win64 Then
DefLngPtr Z
#Else
DefLng Z
#End If

Je veux indiquer que SetValueEx(ByVal zhKey, sValueName As String, zlType, vValue As Variant) As z retourne

ptrlong en Win64
long autrement

Je perçois bien que ma déclaration cloche? Faut il aussi la déclarer entre
#If Win64 Then
#Else
#End If

Si oui merci de m'indiquer comment faire. L'objectif était justement de na pas faire une doouble déclaration!

Merci pour ton aide :pingoin2:

DefLngPtr et DefLng premettent de typer dynamiquement un variable! Z est une variable pas un type de variables

ne te perends pas la tête!

Code:

SetValueEx(ByVal zhKey, sValueName As String, zlType, vValue As Variant) As Variant

Merci rdurupt pour cette astuce que je garde dans un coin de ma tête.

Sinon j'ai résolu mon problème car il s'avère qu'en 32 ou 64 bits, les API renvoient du long.

Bonjour,

J'ai remarqué vous faites cette notation pour décider que toutes les variables commençant par Z seront de type LongPtr pas Long au niveau de la déclaration.
Code:

1 2 3 4 5 #If Win64 Then DefLngPtr Z #Else DefLng Z #End If
est ce qu'elle est correcte ou bien il faut donner un autre caractère différant de Z au variable DefLng.

Cordialement