delphi 获取windows任务栏的高度

function GetWinTrayWnd: Integer;        // 获取windows任务栏高度

var

  TrayWnd: HWnd; //任务栏句柄

  Rec    : TRect;

begin

  TrayWnd := FindWindow('Shell_TrayWnd',nil);//得到任务栏句柄

  GetWindowRect(TrayWnd, Rec);               //获取任务栏尺寸

  result := Rec.Bottom - Rec.Top;

end;