如何取得滚动条的宽度？

Question

TScrollBarInfo似乎有信息，但用下面的代码返回false，不知道哪里错了var
  Info: TScrollBarInfo;
begin
  ZeroMemory(@Info, SizeOf(TScrollBarInfo));
  if windows.GetScrollBarInfo(ScrollBox.Handle, OBJID_HSCROLL, info) then
    beep;

Answer 1

var SbarWh,SbarHt:integer;
 begin
   SbarHt:=getsystemmetrics(SM_CXHSCROLL);
   SbarWh:=getsystemmetrics(SM_CYHSCROLL);
   form1.Caption:='宽度:'+inttostr(sbarwh)+' Pixels'+#20
                  +'高度:'+inttostr(sbarht)+' Pixels';
 end;