Неправильный способ проверить, не поменяны ли кнопки мыши

Это перевод The wrong way to check whether the mouse buttons have been swapped. Автор: Реймонд Чен.

Когда-то давно во второй половине 90-х годов прошлого века команда менеджера окон получила баг, в котором говорилось, что иногда состояние мышиных кнопок приходит в хаос и компьютер ведёт себя как будто их заклинило. Дальнейшие исследования показали, что это происходит только если работает одна конкретная программа и только если пользователь левша (т.е. у него включена смена мест кнопок мыши).

Причина была в том, что эта программа определяла, не поменяны ли местами кнопки мыши, с помощью функции типа такой:

// не используйте эту функцию
function AreMouseButtonsSwapped: Boolean;
begin
  Result := SwapMouseButton(False);
  if Result then
    SwapMouseButton(True);
end;

Функция SwapMouseButton изменяет состояние смены кнопок мыши и возвращает старое состояние. Способ, которым программа определяла, что кнопки не были инвертированы - установка нормального состояния кнопок, чтобы узнать предыдущее состояние, и обратное инвертирование, если предыдущее состояние было "да, кнопки мыши поменяны местами".

Если вы запускали программу и у вас кнопки мыши были инвертированы, то вызов этой функции создавал крошечное окно, на котором кнопки мыши были временно в нормальном состоянии. И если вам не повезло щёлкнуть мышью именно в этот момент, то программа видела как одна кнопка мыши нажималась, но отжималась уже другая кнопка мыши! Даже хотя в реальном мире это была одна и та же физическая кнопка, это была разная логическая кнопка, поскольку значение кнопок мыши менялось.

Правильный способ определить, не поменяны ли местами кнопки мыши - просто спросить систему, не меняя её состояния:

function AreMouseButtonsSwapped: Boolean;
begin
  Result := (GetSystemMetrics(SM_SWAPBUTTON) <> 0);
end;