64 Bit Versiyondaki API Sorununu Çözme

[1903emre34@gmail.com]

Merhaba,

Aşağıdaki resim hata veriyor. declareden sonra ptrsafe yazıyorum, olmadı

 

[Korhan Ayhan]

Hata veren satırları silip yerine aşağıdaki kodları uygulayınız.

#If VBA7 Then
    Private Declare PtrSafe Function FindWindowA Lib "USER32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare PtrSafe Function GetWindowLongA Lib "User32.dll" (ByVal HWnd As LongPtr, ByVal nIndex As LongPtr) As Long
    Private Declare PtrSafe Function SetWindowLongA Lib "User32.dll" (ByVal HWnd As LongPtr, ByVal nIndex As LongPtr, ByVal dwNewLongPtr As LongPtr) As LongPtr
#Else
    Private Declare Function FindWindowA Lib "User32.dll" (ByVal lpszClass As String, ByVal lpszWindow As String) As Long
    Private Declare Function GetWindowLongA Lib "User32.dll" (ByVal HWnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLongA Lib "User32.dll" (ByVal HWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
#End If

 

[1903emre34@gmail.com]

denedim, ama olmadı.

 

[Korhan Ayhan]

İlginç...

Ben dosyanızda denediğimde formunuz açılıyor.