怎么取得滚动条的宽度

如何取得滚动条的宽度？
TScrollBarInfo似乎有信息，但用下面的代码返回false，不知道哪里错了

var
    Info:   TScrollBarInfo;
begin
    ZeroMemory(@Info,   SizeOf(TScrollBarInfo));
    if   windows.GetScrollBarInfo(ScrollBox.Handle,   OBJID_HSCROLL,   info)   then
        beep;


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