获取滚动条的高度和宽度

var
  SbarWh,SbarHt:integer;
begin
  SbarHt:=getsystemmetrics(SM_CXHSCROLL);//水平滚动条的高度
  SbarWh:=getsystemmetrics(SM_CYHSCROLL);//垂直滚动条的宽度
  lblWidth.Caption:='宽度:'+ inttostr(sbarwh)+ 'Pixels     ' + '         高度:' + inttostr(sbarht)+ 'Pixels';
end;