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




Вниз

SHAppBarMessage 


Gennady   (2002-01-26 14:53) [0]

может кто в курсе, как с сиим работать?



VuDZ   (2002-01-26 15:47) [1]

http://aryoh.h1.ru/winapi/tip12.htm

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



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;

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

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



VuDZ   (2002-01-26 19:52) [3]

попытка номер 2:
http://search.microsoft.com/default.asp?qu=SHAppBarMessage&boolean=ALL&nq=NEW&so=RECCNT&p=1&ig=01&i=00&i=01&i=02&i=03&i=04&i=05&i=06&i=07&i=08&i=09&i=10&i=11&i=12&i=13&i=14&i=15&i=16&i=17&i=18&i=19&i=20&i=21&i=22&i=23&i=24&i=25&i=26&i=27&i=28&i=29&i=30&i=31&i=32&i=33&i=34&i=35&i=36&i=37&i=38&i=39&i=40&i=41&i=42&i=43&i=44&i=45&i=46&i=47&i=48&i=49&i=50&i=51&siteid=us/dev




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




Наверх





Память: 0.72 MB
Время: 0.036 c
14-80668          Delhin2               2002-02-11 00:44  2002.03.25  
базы данных


3-80412           Andrey V. Zuev        2002-02-26 12:48  2002.03.25  
Импортирование таблицы из dbf на сервер MSSQL7


1-80584           RMIR                  2002-03-10 18:21  2002.03.25  
Ищётся конвертер из PAS в C/C++


14-80691          Zerul                 2002-02-10 00:50  2002.03.25  
*.iso - hto uto takoe i shem ego edyt?


1-80594           dim2001               2002-03-11 11:30  2002.03.25  
canvas.font.width