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

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

Systen Tray Refresh - как это сделать? [D6, Win2k, WinXP]

Smok_er ©   (2003-03-15 14:12:00) 

Собственно, сабж.
Нужно для того, чтобы после TerinateProcess убрать иконку приложения с трея.

---

Smok_er   (2003-03-18 17:33:00) [1]

Большое спасибо!
После отправки сообщения только заметил, как много ошибок сделал. Спешил просто очень.

---

Nimbus   (2003-03-17 17:44:00) [2]

Вот так:

const
ISize = 16;
var
x,y,TrW,TrH: Integer;
TbWnd: HWnd;
TrRect: TRect;
begin
TbWnd := FindWindowEx(FindWindowEx(FindWindow("Shell_TrayWnd",nil),0,"TrayNotifyWnd",nil),0,"ToolbarWindow32",nil);
if GetClientRect(TbWnd,TrRect) then
begin
TrW := TrRect.Right - TrRect.Left;
TrH := TrRect.Bottom - TrRect.Top;
x := 1;
while x < TrW do
begin
y := 1;
while y < TrH do
begin
SendMessage(TbWnd,WM_MOUSEMOVE,0,x or (y shl 16));
inc(y,ISize);
end;
inc(x,ISize);
end;
end;
end.

---

Наверх