Category: Miscellaneous
Title: Swap the mouse buttons
Date added: 15.03.2006
Hits: 1431
procedure SwapMouseButtons(bValue: Boolean);
begin
if bValue
then
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, nil, 0)
else
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, nil, 0);
end;