PBCC Swap Mouse Button's Functions

[Don Ewald]

' ---------------------------------------------------------------------------
' 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