API小问题：如何获得当前屏幕Tray Bar区的高度？

[xiaocai]

[victorchen_2000]

用SystemParametersInfo 取得工作区的Rect,要注意TrayBar可以在屏幕的四个边上。
和Screen.Width,Screen.Height计算一下。

[Kingron]

procedure TForm1.Button1Click(Sender: TObject);
var
h:thandle;
info:appbardata;
begin
h:=FindWindow('Shell_TrayWnd', nil);
info.hWnd:=h;
info.cbSize:=sizeof(info);
info.uEdge:=abe_bottom;
SHAppBarMessage(ABM_GETTASKBARPOS, info);
shappbarmessage(ABM_QUERYPOS,info);
showmessage(inttostr(info.rc.Right-info.rc.Left));
showmessage(inttostr(info.rc.Bottom-info.rc.top));
end;

[victorchen_2000]

相同时间为什么我又在后面，正不公平。