بدست آوردن ارتفاع TaskBar

[hedi]

با سلام به اساتيد و دوستان با ارزش
می خواستم بدونم تابع یا دستوری هست که با آن بتوان ارتفاع TaskBar را د رویندوز های مختلف بدست آورد. (Taskbar : نوار میله است که در پايين Desktop قرار گرفته است و ساعت هم روی آن قرار گرفته است)

[Felony]

function TaskBarHeight: integer;
var
TaskbarHandle: THandle;
TBRect: TRect;
begin
TaskbarHandle := FindWindow('Shell_TrayWnd', '');
if TaskbarHandle = 0 then
Result := 0
else
begin
GetWindowRect(TaskbarHandle, TBRect);
Result := TBRect.Bottom - TBRect.Top;
end;
end;