var

 Form1: TForm1;

AppBarData : TAppBarData;

bAlwaysOn, bAutoHide : boolean;

Clrect,rect : TRect;

Edge: UInt;

procedure DetectTaskBar;

begin

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

 AppBarData.cbSize := sizeof(AppBarData);

 bAlwaysOn := (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;

procedure TForm1.Button1Click(Sender: TObject);

begin

 DetectTaskBar;

 StringGrid1.Cells[0,0] := 'Выше других окон';

 StringGrid1.Cells[0,1] := 'Автоматически убирать с экрана';

 StringGrid1.Cells[0,2] := 'Клиентская область';

 StringGrid1.Cells[0,3] := 'Оконная область';

 StringGrid1.Cells[0,4] := 'Края';

 if bAlwaysOn = true then

  StringGrid1.Cells[1,0] := 'true'

 else

  StringGrid1.Cells[1,0] := 'false';

 if bAutoHide = true then

  StringGrid1.Cells[1,1] := 'true'

 else

  StringGrid1.Cells[1,1] := 'false';

 StringGrid1.Cells[1,2] := IntToStr(Clrect.Left)+':'+IntToStr(Clrect.) +

 ':'+IntToStr(Clrect.Right)+':'+IntToStr(Clrect.Bottom);

 StringGrid1.Cells[1,3] := IntToStr(rect.Left)+':'+IntToStr(rect.) +

 ':'+IntToStr(rect.Right)+':'+IntToStr(rect.Bottom);

 StringGrid1.Cells[1,4] := IntToStr(Edge);

end;