Получение информации о TaskBar

Code:

var

Form1: TForm1;

Code:

AppBarData : TAppBarData;

bAlwaysOnTop, bAutoHide : boolean;

Clrect,rect : TRect;

Edge: UInt;

Code:

procedure DetectTaskBar;

begin

AppBarData.hWnd := FindWindow('Shell_TrayWnd', nil);

AppBarData.cbSize := sizeof(AppBarData);

bAlwaysOnTop := (SHAppBarMessage(ABM_GETSTATE, AppBardata)

and ABS_ALWAYSONTOP) <> 0;

bAutoHide := (SHAppBarMessage(ABM_GETSTATE, AppBardata)

and ABS_AUTOHIDE) <> 0;

GetClientRect(AppBarData.hWnd, Clrect);

GetWindowRect(AppBarData.hwnd, rect);

if rect.top > 0 then

   Edge := ABE_BOTTOM

else

if rect.bottom < screen.height then

   Edge:=ABE_TOP

else

if rect.right < screen.width then

   Edge:=ABE_LEFT

else

   Edge:=ABE_RIGHT;

end;