Code to work with Win32 and Win64

[psyc0tic1]

I have this module to hide the close buttons in the access application to force the user to use my command button on the main form to close the database.

It has the PtrSafe added in to make it work with 64 bit systems but I have one user out of all users that is still on a 32 bit system.

Is anyone willing to modify the below code to work with both systems?

Private Const GWL_EXSTYLE = (-20)
Private Const GWL_STYLE = (-16)

Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H80000

Private Const HWND_TOP = 0
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED

Private Declare PtrSafe Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) _
As Long

Private Declare PtrSafe Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long

Private Declare PtrSafe Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

Sub HideAccessCloseButton()

   Dim lngStyle As Long

   lngStyle = GetWindowLong(hWndAccessApp, GWL_STYLE)
   lngStyle = lngStyle And Not WS_SYSMENU
   Call SetWindowLong(hWndAccessApp, GWL_STYLE, lngStyle)
   Call SetWindowPos(hWndAccessApp, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_DRAWFRAME)

End Sub

I tried using the IF and Else for the private declarations but it didn't work.

 

[Gasman]

You have to use #IF etc

Here is are two examples
https://www.access-programmers.co.uk/forums/showthread.php?t=301387&highlight=%23IF+VBA7

https://www.access-programmers.co.uk/forums/showthread.php?t=301351&highlight=%23IF+WIN64

you can search for more. I've never needed it as i only use 32bit.

HTH

 

[psyc0tic1]

I tried this but it errors on everything after the #Else stating it needed to be updated for 64 bit systems:

#If VBA7 Then
    Private Declare PtrSafe Function SetWindowLong Lib "user32" _
        Alias "SetWindowLongA" (ByVal hwnd As Long, _
        ByVal nIndex As Long, ByVal dwNewLong As Long) _
        As Long

    Private Declare PtrSafe Function GetWindowLong Lib "user32" _
        Alias "GetWindowLongA" (ByVal hwnd As Long, _
        ByVal nIndex As Long) As Long

    Private Declare PtrSafe Function SetWindowPos Lib "user32" _
        (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
        ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
        ByVal cy As Long, ByVal wFlags As Long) As Long

#Else
    [COLOR="Red"]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 SetWindowPos Lib "user32" _
        (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
        ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
        ByVal cy As Long, ByVal wFlags As Long) As Long[/COLOR]
#End If

 

[Gasman]

No, the #VBA7 is only one of the directives. I searched on that as that was what I remembered.
You need #Win64 I believe, see the links.

 

[isladogs]

You also need to change Long to LongPtr for arguments that serve s pointers e.g hWnd.
Try this (not tested)

#If VBA7 Then
    Private Declare PtrSafe Function SetWindowLong Lib "user32" _
        Alias "SetWindowLongA" (ByVal hwnd As LongPtr, _
        ByVal nIndex As Long, ByVal dwNewLong As Long) _
        As Long

    Private Declare PtrSafe Function GetWindowLong Lib "user32" _
        Alias "GetWindowLongA" (ByVal hwnd As LongPtr, _
        ByVal nIndex As Long) As Long

    Private Declare PtrSafe Function SetWindowPos Lib "user32" _
        (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, _
        ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
        ByVal cy As Long, ByVal wFlags As Long) As Long

#Else
    [COLOR="Red"]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 SetWindowPos Lib "user32" _
        (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
        ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
        ByVal cy As Long, ByVal wFlags As Long) As Long[/COLOR]
#End If

Don't worry about the 32-bit code showing in red on a 64-bit system. That's normal

However if the code is to be used with Access 2007 or earlier, you will need an additional step.

 

[psyc0tic1]

No, the #VBA7 is only one of the directives. I searched on that as that was what I remembered.
You need #Win64 I believe, see the links.

I tried the Win64 as well remembering ridders mentioning that in another one of my posts but it didn't change anything.

You are suggesting that I use the solution posted by arnelgp instead of what I am using??

 

[Gasman]

No, merely showing the compiler directives.
Ridders has said the red is OK, but I think you should be using #Win64

arnelgp code uses that as well.?

 

[psyc0tic1]

You also need to change Long to LongPtr for arguments that serve s pointers e.g hWnd.
Try this (not tested)

#If VBA7 Then
    Private Declare PtrSafe Function SetWindowLong Lib "user32" _
        Alias "SetWindowLongA" (ByVal hwnd As LongPtr, _
        ByVal nIndex As Long, ByVal dwNewLong As Long) _
        As Long

    Private Declare PtrSafe Function GetWindowLong Lib "user32" _
        Alias "GetWindowLongA" (ByVal hwnd As LongPtr, _
        ByVal nIndex As Long) As Long

    Private Declare PtrSafe Function SetWindowPos Lib "user32" _
        (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, _
        ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
        ByVal cy As Long, ByVal wFlags As Long) As Long

#Else
    [COLOR="Red"]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 SetWindowPos Lib "user32" _
        (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
        ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
        ByVal cy As Long, ByVal wFlags As Long) As Long[/COLOR]
#End If

Don't worry about the 32-bit code showing in red on a 64-bit system. That's normal

However if the code is to be used with Access 2007 or earlier, you will need an additional step.

Thanks Colin... everyone has access 2013 but just one user has it in 32 bit and all others including myself are on 64 bit versions.

Trying it now.

 

[psyc0tic1]

No, merely showing the compiler directives.
Ridders has said the red is OK, but I think you should be using #Win64

arnelgp code uses that as well.?

No... his has VBA7

 

[Gasman]

See post #8 of first link

No... his has VBA7

 

[isladogs]

Because some of my code is used with A2007, my method of conditional compilation is normally

#if VBA7 Then 'use PtrSafe
...
#ElseIf Win64 Then 'also use LongPtr
...
#Else '32-bit
...
#End If

But the first two parts can be combined if only using 2010 or later

Recommend you read Phillip Stiefel's guide to the subject:
https://codekabinett.com/rdumps.php?Lang=2&targetDoc=windows-api-declaration-vba-64-bit

 

[psyc0tic1]

See post #8 of first link

Ahhh... I missed that... he used both. :banghead: