Höhe der Windows-Taskbar ermitteln

[Wormid]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var hWnd: THandle;
    Rect: TRect;
    TaskbarHeight: Integer;
begin
  hWnd := FindWindow('Shell_TrayWnd', nil);
  GetWindowRect(hWnd, Rect);
  TaskbarHeight := Rect.Bottom - Rect.Top;

  ShowMessage(IntToStr(TaskBarHeight));
end;

MfG

Wormid