procedure SwapMouseButtons(bValue: Boolean); begin if bValue then SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, nil, 0) else SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, nil, 0); end;