Текущий архив: 2005.09.25;
Скачать: CL | DM;

Вниз

Размер SysTray-a   Найти похожие ветки 

← →
Adil   (2005-08-01 20:53) [0]

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

---

← →
Ученик   (2005-08-01 22:56) [1]


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;


---

← →
Adil   (2005-08-02 09:19) [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;



---

← →
DVM ©   (2005-08-02 10:31) [3]

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

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

---

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

Текущий архив: 2005.09.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.048 c