如何取得滚动条的宽度？
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;