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

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

Размер SysTray-a [D6, D7, Win2k, WinXP]

Adil ©   (2005-08-01 20:53:00) 

Как можно узнат размер(Width) Systray-e???
Спасибо

---

DVM   (2005-08-02 10:31:00) [1]

> Мне нужно было другое, но принцип тоже самое.

SysTray - это как раз панель задач. Если другое нужно было - так другое бы и писал.

---

Adil   (2005-08-02 09:19:00) [2]

Спасибо за помощь.
Мне нужно было другое, но принцип тоже самое.

Исправил:

procedure TForm1.Button1Click(Sender: TObject);
var
WindowRect: TRect;
  TrayWnd, SysTrayWnd: HWND;
begin
 TrayWnd  := FindWindow('Shell_TrayWnd', nil);
 SysTrayWnd := FindWindowEx(TrayWnd, 0, 'TrayNotifyWnd', nil);

if GetWindowRect(SysTrayWnd, WindowRect) then
  with WindowRect do
   showmessage(format('Width: %d , Height: %d',[right-left,bottom-top]));
  //     ShowMessage(Format('%d-%d-%d-%d', [Left, Top, Right, Bottom]))

end;



---

Ученик   (2005-08-01 22:56:00) [3]


procedure TForm1.Button2Click(Sender: TObject);
var
 WindowRect: TRect;
begin
 if GetWindowRect(FindWindow('Shell_TrayWnd', ''), WindowRect) then
   with WindowRect do
     ShowMessage(Format('%d-%d-%d-%d', [Left, Top, Right, Bottom]))
end;


---

Наверх