Inverser les touches de la souris

procedure ChMouse(OnOff:boolean);
Begin
if OnOff then
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP,1, Nil, 0) else
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP,0, Nil, 0);
end;