1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function TaskHoehe: Integer;
var
  hWnd: Longint;
  rRect: TRect;
begin
  hWnd := FindWindow(PCHAR('Shell_TrayWnd'), '');
  if hWnd <> 0 then
  begin
    GetWindowRect(hWnd, rRect);
    TaskHoehe := rRect.Bottom - rRect.Top;
  end
    else TaskHoehe := -1; {keine Taskleiste gefunden}
end;