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

**informer** · 07/06/2016, 09h17

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 VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

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 VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci par avance pour toute aide

Invité · 07/06/2016, 11h33

Bonjour,
Oui c'est interresant que signifi Z?

**informer** · 07/06/2016, 12h40

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

Invité · 07/06/2016, 13h31

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**informer** · 08/06/2016, 09h55

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.

**man84** · 14/12/2016, 11h22

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

VBA Access

Discussions similaires

Partager

Partager