Appel fonctions API 64 bits

Bonjour,

J'avais trouvé sur le net ces appels de fonction qui fonctionnaient trés bien, mais en 32 b.
Maintenant tous les micros sont livrés avec W8 en 64 bits et ça fonctionne donc plus.

Pouvez m'aider à faire la transformation ou me dire ou je pourrai trouver une aide.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Declare Function GetSystemMenu Lib "User32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal iditem As Long, ByVal wflags As Long) As Long Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function ShowWindow Lib "User32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function IsIconic Lib "User32" (ByVal hWnd As Long) As Long Private Declare Function IsZoomed Lib "User32" (ByVal hWnd As Long) As Long 'non utilisée ici Private Declare Function DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long Private Declare Sub ReleaseCapture Lib "User32" ()

---

Merci beaucoup !

Bonjour

remplace

Code:

---

private Declare

---

par

Code:

---

private Declare PtrSafe

---

Au plaisir

http://arkham46.developpez.com/artic...ice/vba64bits/

Bonjour,

Citation:

---

Envoyé par patricktoulon

Bonjour

remplace

Code:

---

private Declare

---

par

Code:

---

private Declare PtrSafe

---

Au plaisir

---

Attention ce n'est pas si simple.
Les déclarations d'API doivent être corrigées avec des LongPtr pour les pointeurs, sinon risque de plantage.
C'est à cela que sert PtrSafe, à dire à VBA que les déclarations d'API sont sûres : Ptr (pointeur) Safe (sûr, sans risque).

Voir le lien donné par rdurupt.

oui tu a raison harkam
on peut meme intégrer les deux (32/64 bits)
c'est bien ca

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

#If vba7 Then Private Declare PtrSafe Function GetSystemMenu Lib "User32" (ByVal hWnd As Long, ByVal bRevert As LongPtr) As LongPtr Private Declare PtrSafe Function DeleteMenu Lib "User32" (ByVal hMenu As LongPtr, ByVal iditem As LongPtr, ByVal wflags As LongPtr) As LongPtr Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function ShowWindow Lib "User32" (ByVal hWnd As LongPtr, ByVal nCmdShow As LongPtr) As LongPtr Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As LongPtr, ByVal dwNewLong As LongPtr) As LongPtr Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As LongPtr) As LongPtr Private Declare PtrSafe Function IsIconic Lib "User32" (ByVal hWnd As LongPtr) As LongPtr Private Declare PtrSafe Function IsZoomed Lib "User32" (ByVal hWnd As LongPtr) As LongPtr 'non utilisée ici Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hWnd As LongPtr) As LongPtr Private Declare PtrSafe Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As LongPtr, ByVal wParam As LongPtr, lParam As Any) As LongPtr Private Declare PtrSafe Sub ReleaseCapture Lib "User32" ()   #Else Private Declare Function GetSystemMenu Lib "User32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal iditem As Long, ByVal wflags As Long) As Long Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function ShowWindow Lib "User32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function IsIconic Lib "User32" (ByVal hWnd As Long) As Long Private Declare Function IsZoomed Lib "User32" (ByVal hWnd As Long) As Long 'non utilisée ici Private Declare Function DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Sub ReleaseCapture Lib "User32" () #End If

---

Au plaisir

Bonjour,

Non Patrick ce n'est pas un simple remplacement de Long en LongPtr.

Seul les pointeurs sont des LongPtr, les autres paramètres où retour de fonction reste en Long si ce ne sont pas des pointeurs.

Il y a dans mon article un lien vers un fichier de Microsoft avec la plupart des API communes déclarées pour 64bits.

Re
Ok donc
partie 64 bits:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

#If vba7 Then Private Declare PtrSafe Function GetSystemMenu Lib "User32" (ByVal hWnd As Longptr, ByVal bRevert As Long) As LongPtr Private Declare PtrSafe Function DeleteMenu Lib "User32" (ByVal hMenu As LongPtr, ByVal iditem As LongPtr, ByVal wflags As Long) As LongPtr Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function ShowWindow Lib "User32" (ByVal hWnd As LongPtr, ByVal nCmdShow As Long) As LongPtr Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPtr Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr Private Declare PtrSafe Function IsIconic Lib "User32" (ByVal hWnd As LongPtr) As LongPtr Private Declare PtrSafe Function IsZoomed Lib "User32" (ByVal hWnd As LongPtr) As LongPtr 'non utilisée ici Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hWnd As LongPtr) As LongPtr Private Declare PtrSafe Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Longptr, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPtr Private Declare PtrSafe Sub ReleaseCapture Lib "User32" ()

---

j'ai bien compris ????

il est vrai que je travaille exclusivement en 32 bits Mais je pense que d'ici 2 ou 3 ans je vais devoir m'y mettre :mouarf:
encore des hectolitres de café et des plombes de debugages



Au plaisir