macro update for x64 2

[swforge1]

Hi All
Trying to adapt some older macros on x64 2013 system. Getting compile error- -upate frp 64 bit system message. Can anyone help?

 

[academix]

Hi:

Just replace following in your code, it will work.

---------
Private Declare PtrSafe Function RemoveMenu Lib "user32" (ByVal hMenu As LongPtr, ByVal nPosition As LongPtr, _
ByVal wFlags As LongPtr) As Long

Private Declare PtrSafe Function GetSystemMenu Lib "user32" (ByVal hwnd As LongPtr, ByVal bRevert As LongPtr) As Long

Private Declare PtrSafe Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
-------------------------------------------

V K Amirtharaj
EGS Computers India Pvt Ltd
Dassault System SolidWorks Reseller
Chennai | Tamilnadu | India

http://www.egsindia.com/solidworks.html

http://www.egs.co.in

 

[swforge1]

Thanks
Dropped in addition and got same message(Update to x64...)
Maybe I put in wrong place? In top section of macro

 

[CorBlimeyLimey]

Replace

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As LongPtr, ByVal nPosition As LongPtr, _
ByVal wFlags As LongPtr) As Long

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As LongPtr, ByVal bRevert As LongPtr) As Long

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

with

Private Declare PtrSafe Function RemoveMenu Lib "user32" (ByVal hMenu As LongPtr, ByVal nPosition As LongPtr, _
ByVal wFlags As LongPtr) As Long

Private Declare PtrSafe Function GetSystemMenu Lib "user32" (ByVal hwnd As LongPtr, ByVal bRevert As LongPtr) As Long

Private Declare PtrSafe Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

or just add PtrSafe between the words Declare & Function