Определить количество кнопок мышки

Советы » Мышка и Курсор » Определить количество кнопок мышки

// if the result is 0, no mouse is present 
// wenn result 0 zuruckgibt, ist keine Maus angeschlossen. 

function

GetNumberOfMouseButtons: Integer; begin

Result := GetSysTemMetrics(SM_CMOUSEBUTTONS); end

; procedure

TForm1.Button1Click(Sender: TObject); begin

ShowMessage('Your mouse has ' + IntToStr(GetNumberOfMouseButtons) + ' buttons.'); end

;

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

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com