'================================================================
'= マウスのボタン数取得

'=    (SM_CMOUSEBUTTONS.bas)
'================================================================

' さまざまなシステムメトリックの値(表示要素の幅と高さ)とシステムの現在の構成を取得
Declare Function Api_GetSystemMetrics& Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex&)

#define SM_CMOUSEBUTTONS 43             'マウスボタンの数(マウスがないとき0)

Print "ボタン数：" & Str$(Api_GetSystemMetrics(SM_CMOUSEBUTTONS))

Stop
End