Positionsdaten der Taskleiste

[Daniel B]

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  tl: HWnd;
  rah: TRect;
begin
  tl := FindWindow('Shell_TrayWnd', nil);
  GetWindowRect(tl, rah);
  tl := FindWindow('Shell_TrayWnd', nil);
  GetWindowRect(tl, rah);
  ShowMessage('Die Taskleiste fängt Links bei ' + IntToStr(rah.Left) +
              ' an, geht Rechts bis ' + IntToStr(rah.Right) +
              ', von Oben aus gesehen, fängt sie bei ' + IntToStr(rah.Top) +
              ' an und endet Unten bei ' + IntToStr(rah.Bottom));
end;

Grüsse, Daniel