Announcement

Collapse

Forum Guidelines

This forum is for finished source code that is working properly. If you have questions about this or any other source code, please post it in one of the Discussion Forums, not here.
See more
See less

Swap Mouse Button's Functions

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • PBCC Swap Mouse Button's Functions

    Code:
    ' ---------------------------------------------------------------------------
    ' Program Title: Swap Mouse Buttons
    '        Author: Donnie Ewald
    ' Last Modified: August 20, 2009
     
    '      Compiler: PB/CC 4.04
    '  Win32api.inc: 21 February 2005
    ' ---------------------------------------------------------------------------
    '   Description: Swaps the left and right mouse button functions. Read MSDN:
    '                http://msdn.microsoft.com/en-us/library/ms646264(VS.85).aspx
    '                ...for more information. This utility is useful for allowing
    '                a mouse-user that is left-handed to quickly change the
    '                Control Panel mouse setting.
    ' ---------------------------------------------------------------------------
    
    #COMPILE EXE
    #DIM ALL
    '#INCLUDE "WIN32API.INC"
    
    ' Created by incLean v1.27, 08-20-2009, 04:37:43
    '-----------------------------------------------------------------
    ' Equates:  5
    '-----------------------------------------------------------------
    %WINAPI                 = 1
    %TRUE                   = 1
    %FALSE                  = 0
    %SM_SWAPBUTTON          = 23
    %SPI_SETMOUSEBUTTONSWAP = 33
    
    '-----------------------------------------------------------------
    ' Declared Functions:  2
    '-----------------------------------------------------------------
    DECLARE FUNCTION GetSystemMetrics LIB "USER32.DLL" ALIAS "GetSystemMetrics" (BYVAL nIndex AS LONG) AS LONG
    DECLARE FUNCTION SystemParametersInfo LIB "USER32.DLL" ALIAS "SystemParametersInfoA" (BYVAL uAction AS DWORD, BYVAL uParam AS DWORD, lpvParam AS ANY, BYVAL fuWinIni AS DWORD) AS LONG
    
    FUNCTION PBMAIN
      LOCAL Jack AS LONG
    
      if (GetSystemMetrics(%SM_SWAPBUTTON)) then
        SystemParametersInfo(%SPI_SETMOUSEBUTTONSWAP, %FALSE, Jack, 0)
      else
        SystemParametersInfo(%SPI_SETMOUSEBUTTONSWAP, %TRUE, Jack, 0)
      end if
    END FUNCTION
    Donnie Ewald
    [email protected]
Working...
X