Tips (1541)

Tip Rating (2):

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