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():
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)); }