Содержание материала

 

Для вывода информации мы будет использовать компонент TStringGrid с закладки Additional.

Сначала вам нужно будет после

Code:

var

Form1: TForm1;

 

добавить следующий код:

Code:

AppBarData : TAppBarData;

bAlwaysOnTop, bAutoHide : boolean;

Clrect,rect : TRect;

Edge: UInt;

 

затем после слова Implementation пишем

 

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;

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить