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

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;