Connaitre la position de la barre des tâches

var
hTaskbar : HWND;
T : TRect;


begin
hTaskBar:=FindWindow('Shell_TrayWnd',nil); // Find the handle of the taskbar
GetWindowRect(hTaskBar,T);
if (T.Top > Screen.Height DIV 2) and (T.Right >= Screen.Width)
then ShowMessage('Bottom') else
if (T.Top < Screen.Height DIV 2) and (T.Bottom <= Screen.Width DIV 2)
then ShowMessage('Top') else
if (T.left < Screen.Width DIV 2) and (T.Top <= 0) then ShowMessage('Left') else
// (the last if is not necessary)
if T.Left >= Screen.Width DIV 2 then ShowMessage('Right');
end;