Convert 32 bit API to 64 bit

[tiredofit]

This API removes the cross in the top right of a userform and it works on a 32 bit Excel:

Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, _
                                                                          ByVal lpWindowName As String) As Long
     
    Private Declare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" (ByVal hWnd As Long, _
                                                                                ByVal nIndex 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
    
    Const WS_SYSMENU = &H80000
    Const GWL_STYLE = (-16)

This page shows how to convert it to work on a 64 bit:

Excel: Declaring API functions in 64 bit Office

resulting in this:

    Private Declare PtrSafe Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, _
                                                                                  ByVal lpWindowName As String) As LongPtr
    Public Declare PtrSafe Function GetWindow Lib "USER32" (ByVal hWnd As LongPtr, _
                                                            ByVal wCmd As Long) As LongPtr
    #If VBA7 Then
        #If Win64 Then
            Private Declare PtrSafe Function SetWindowLongPtr Lib "USER32" Alias "SetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
        #Else
            Private Declare Function SetWindowLongPtr Lib "USER32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
        #End If
    #Else
        Private Declare Function SetWindowLongPtr Lib "USER32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    #End If

My question is: do these have to change or not?

Const WS_SYSMENU = &H80000
    Const GWL_STYLE = (-16)

Thanks

 

[Jaafar Tribak]

No. Those constants stay the same .

But bear in mind that any variables in your code that hold Pointers or Handles will also have to change from Long to LongPtr

 

[tiredofit]

Thanks