uses windows;

  GetSystemMetrics(SM_CXHSCROLL) = 17
  GetSystemMetrics(SM_CYHSCROLL) = 17
  GetSystemMetrics(SM_CXHTHUMB) = 17
  GetSystemMetrics(SM_CXVSCROLL) = 17
  GetSystemMetrics(SM_CXVSCROLL) = 17
  GetSystemMetrics(SM_CYVTHUMB) = 17
  GetSystemMetrics(SM_MOUSEHORIZONTALWHEELPRESENT) = 0 // 0 = pas de molette horizontale sur ma souris.
  GetSystemMetrics(SM_MOUSEWHEELPRESENT) = 1 // 1 = Une molette verticale est presente sur ma souris