Home » Tipps & Tricks » System » Desktop und Taskleiste » Dimensionen der Taskbar ermitteln

Dimensionen der Taskbar ermitteln

Mit dieser Procedure kann man die Eckdaten der Taskbar ermitteln. Sie ragt auf jeder Seite 2-3 Pixel über den Bildschirmrand hinaus.

procedure TForm1.Button1Click(Sender: TObject);
var
  H: HWnd;
  Rect: TRect;
begin
  H:= FindWindow('Shell_TrayWnd', nil);
  if H0 then
  begin
    GetWindowRect(H, Rect);
 
    Label1.Caption:= 'Left: ' + IntToStr(Rect.Left);
    Label2.Caption:= 'Right: ' + IntToStr(Rect.Right);
    Label3.Caption:= 'Top: ' + IntToStr(Rect.Top);
    Label4.Caption:= 'Bottom: ' + IntToStr(Rect.Bottom);
  end;
end;