ShellTrayWnd-Position ermitteln, aber wie ?

[turboPASCAL]

Hi,

wie kann man ShellTrayWnd-Position ermitteln ? Ja ist klar:

Delphi-Quellcode:

begin
  hTrayWnd := FindWindow('Shell_TrayWnd', nil);
  if hTrayWnd <> 0 then
  begin
    GetWindowRect(hTrayWnd, wr);
    // ...
  end;
end;

Nun ist die Sache die, wie kann man auf einfache Art feststellen ob sich dat Ding nun Links, Rechts, Oben oder Unten befindet ohne
eine Aufwendige If Then-Orgie zu starten ?