32 bit ve 64 bit API kodları

[ynmcan]

Merhaba arkadaşlar ;
32 bit bir bilgisayarda çalışan aşağıdaki gibi bir API kodunu

Private Declare  Function SendMessage Lib "user32" _
 Alias "SendMessageA" (ByVal hwnd As Long, _
 ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

64 bitte çalıştırmak içim aynı koda " PtrSafe " ifadesini aşğıdaki gibi yazmam gerekiyor.

Private Declare [COLOR="Red"]PtrSafe[/COLOR] Function SendMessage Lib "user32" _
 Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Benim öğrenmek istediğim bu değişikliği yapmadan hem 32 bit hemde 64 bitte çalışacak API kodu yazılabilirmi ?

 

[mancubus]

merhaba.

API kodu kullanmak demek daha uygun olur

forumda VBA Directives / VBA yönergeleri diye aratın.

şöyle olabilir.

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function SendMessage Lib "user32" _
        Alias "SendMessageA" (ByVal hwnd As Long, _
        ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
#Else
    Private Declare  Function SendMessage Lib "user32" _
        Alias "SendMessageA" (ByVal hwnd As Long, _
        ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
#End If

 

[ynmcan]

Teşekkürler Syn. mancubus
İş yerindeki bilgisayarda deniyeceğim