Odczyt liczby przyciskow myszy

Aby po kliknięciu przycisku Button1 na etykiecie Label1 wyświetlić liczbę przycisków myszy używamy funkcji Windows API GetSystemMetrics():

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if (GetSystemMetrics(SM_CMOUSEBUTTONS) == 0)
      Label1->Caption = "brak myszy";
   else
       Label1->Caption = "liczba przycisków myszy: " +
                          IntToStr(GetSystemMetrics(SM_CMOUSEBUTTONS));
}