procedureSwapMouseButtons(bValue: Boolean); begin
if
bValue then
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, nil
, 0) else
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, nil
, 0); end
; begin
SwapMouseButton(true
); // Поменять SwapMouseButton(false
);
// Поменять обратно end;