Odczyt rozmiaru kursora myszy
Aby po kliknięciu przycisku Button1 na etykiecie Label1 wyświetlić rozmiar kursora myszy używamy funkcji Windows API GetSystemMetrics():
void __fastcall TForm1::Button1Click(TObject *Sender) { Label1->Caption = "Rozmiar kursora myszy: " + IntToStr(GetSystemMetrics(SM_CXCURSOR)) + ":" + IntToStr(GetSystemMetrics(SM_CYCURSOR)); }