Программирование на Delphi и не только Есть ли у мышки колёсико? | Программирование на Delphi и не только

Delphi FAQ >> Система

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

function MouseWheelPresent : boolean;
begin   Result := (GetSystemMetrics(SM_MOUSEWHEELPRESENT) 0);

end;

Хотите сделать тату на плече?