Форум: "WinAPI";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];

Вниз

SHAppBarMessage   Найти похожие ветки 

← →
Gennady   (2002-01-26 16:37) [2]

uses ShellApi;

var
AppBarData : TAppBarData;
bAlwaysOnTop, //Taskbar всегда на экране
bAutoHide : boolean;
Clrect,rect : TRect;
Edge:UInt; //Местоположение TaskBar

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.rc);
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;

поиском не сложно пользоваться..

объясните мне, дураку, что делает вышеприведенный код?

---

Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c