delphi 获取任务栏高度

var
  TrayWnd: HWnd; //任务栏句柄
  Rec    : TRect;
begin
  TrayWnd := FindWindow('Shell_TrayWnd',nil);//得到任务栏句柄
  GetWindowRect(TrayWnd, Rec);               //获取任务栏尺寸
  Showmessage('任务栏的高度是:' + IntToStr(Rec.Bottom - Rec.Top));
end;