请问如何获得windows任务栏的高度？(100分)

请问如何获得windows任务栏的高度？

up

uses<br>&nbsp; ShellAPI;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp;abd:TAppBarData;<br>begin<br>&nbsp;abd.cbSize:=sizeof(abd);<br>&nbsp;SHAppBarMessage(ABM_GETTASKBARPOS,abd);<br>&nbsp;Caption:=IntToStr(abd.rc.Bottom-abd.rc.Top);<br>end;

谢谢了