Количество кнопок у мышки

Delphi FAQ >> Система

//если ноль, то мышка не установлена
Function CntMouseBut : Byte;
begin
  Result := GetSystemMetrics(SM_CMOUSEBUTTONS);
end;

Все вебмастера хотят знать, как заработать на своем сайте.