Как поменять функции кнопок мышки

procedure
 SwapMouseButtons(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
;

Другое по теме:

• Включить изображение курсора в снимок экрана
• Добавление события OnMouseLeave
• Избавиться от раздражающего SQL Wait курсора