Как узнать ширину полосы прокрутки (скроллера)

Иногда возникает необходимость узнать ширину полосы прокрутки для, например, автоматического выстраивания компонентов в контейнере. Сделать это, как выяснилось, достаточно просто: нужно воспользоваться функцией GetSystemMetrics.

uses
  Windows;

begin
  ...
  VertScrollWidth := GetSystemMetrics(SM_CXVSCROLL); // Ширина вертикального скроллера
  HorScrollHeight := GetSystemMetrics(SM_CYHSCROLL); // Высота горизонтального скроллера
  ...
end;

Вообще, функция GetSystemMetrics весьма полезна и позволяет многоt узнать о системе. В частности, с ее помощью можно гораздо проще узнать разрешение экрана, нежели описано в статье Как узнать размеры экрана:

uses
  Windows;

begin
  ...
  ScreenWidth := GetSystemMetrics(SM_CXSCREEN); // Ширина экрана
  ScreenHeight := GetSystemMetrics(SM_CYSCREEN); // Высота экрана
  ...
end;

 Смотрите подробности по использованию функции в справке Windows SDK Delphi, здесь раскрыты далеко не все варианты использования.