Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как узнать текущие параметры панели задач [D6, Win95/98, WinXP]


RDen ©   (2004-02-04 13:37:00) 

Здравствуйте! Подскажите как узнать текущее расположение панели задач на экране (внизу, слева и т.д.)? Спасибо.


Vit@ly   (2004-02-04 15:03:00) [1]

uses ShellApi
var
 Rect: TRect;
Function DetectTaskBar: String;
begin
GetWindowRect(FindWindow('Shell_TrayWnd', nil), rect);
 if (Rect.top > 0) Then  Result:= 'Bottom'
                   else
 if (Rect.Bottom < Screen.Height) Then Result:= 'Top'
                   else
 if Rect.Right < Screen.Width Then  Result:= 'Left'
                   else Result:= 'Right'
end;


Игорь Шевченко   (2004-02-04 13:42:00) [2]

SH_AppbarMessage (ABM_GETTASKBARPOS,


Наверх

Титульная страница Поиск, карта сайта Написать письмо