SysTray

← →
nimble © (2002-03-14 05:08) [0]

Прошу прощения, вопрос изначально был задан не врено!
Люди добрые, поможите!
Как сделать так, чтобы иконка чужой проги (пусть WinAmp)в SysTray исчезла, но прога не умерла!!!
Заранее благодарен!!!

← →
Fellomena (2002-03-14 12:30) [1]

Инструмент один - Win32API.
Попробуй так:
получаешь дескриптор панели задачь (лекго), получить дескриптор нужной тебе иконки (если она имеет дескриптор),
и если таковой имеется - просто SendMessage(Tray_handle, WM_CLOSE, 0, 0);
или можно попробовать WindowState(Tray_handle, WS_HIDE);

Хотя это только мои домыслы - конкретно это я не делала. (но с кнопкой Пуск развлекалась - вышепреведённая схема работает =)

← →
Nebula © (2002-03-14 12:54) [2]

Tray - это Toolbar, а иконки - Buttons. Поэтому работаем с ним как с обычным Toolbar. Через сообщение TB_DELETEBUTTON.

Расположение окон:
Shell_TrayWnd
- TrayNotifyWnd
- ToolbarWindow32

FTrayToolbar := FindWindowEx(FindWindowEx(FindWindow("Shell_TrayWnd", ""), 0, "TrayNotifyWnd", ""), 0, "ToolbarWindow32", "");
SendMessage(FTrayToolbar, TB_DELETEBUTTON, ButtonIndex, 0);

← →
Fellomena (2002-03-14 12:59) [3]

2 Nebula:
угу, теперь понятно.
Значит они точно handle не имеют.
А можно эти иконки идентифицировать не по индексу, а по какому-либо ещё критерию ?
Ведь порою некоторые программы вставляют и удаляют свои иконки достаточно быстро...

← →
Nebula © (2002-03-14 13:12) [4]

см help по Toolbar, все что найдешь - все твое. Только маленькое дополнение - это win32 control, т.е. появился с Windows 95, а значит у вас разные адресные пространства и как следствие - невозможность передавать указатели в сообщениях. :( Хотя методы, конечно, есть, но это совсем другая сказка. А эта кончилась, все плохие иконки убили, все хорошие - погибли в бою...

← →
paul_shmakov © (2002-03-14 15:09) [5]

2 Fellomena (14.03.02 12:59):
можно глобальным хуком перехватывать попытки что-либо делать с иконками в трее.
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1015937269&n=5

← →
Fellomena (2002-03-14 17:09) [6]

2 paul_shmakov: угу... тоже дело, спасибо за линк 8)

← →
Raptor © (2002-03-14 19:56) [7]

Да, народ, ну и наворотили же вы тут. Даже хуки задействовали. :-))
Я, конечно, не спорю. Можно и так. Но лично я такую проблему проще решал. Стандартными, так сказать, методами. Идея проста. Раз прога установила иконку в трей и удаляет ее оттуда при выходе, то почему я немогу от ее имени этого сделать?
Ну вот и делаю:
Var FIconData:TNotifyIconData; ....................... With FIconData Do Begin cbSize:=SizeOf(FIconData); Wnd:=FindWindow("здесь класс окна, которое установило иконку", "здесь заголовок окна"); uID:=<здесь ставим ID иконки>; uFlags:=NIF_ICON; End; i:=Shell_NotifyIcon(NIM_DELETE,@FIconData);
Главная проблема здесь найти ID иконки (мы же не знаем какой ID поставила прога, установившая иконку). Но эта проблема легко решается. Например так:
While not Shell_NotifyIcon(NIM_DELETE,@FIconData) Do Begin FIconData.uID:=FIconData.uID+1; End; ID:=FIconData.uID;
Например для WinAmp 2.78 праметры такие
Класс="Winamp v1.x"
uID=502

2 Raptor:
ну я как раз для определения uID и предлагал хуки использовать :)
uID - это DWORD... перебор от 0 до 4294967296 с посылкой сообщения - не самый шустрый вариант, но все же вариант.
хотя для такой простой задачи можно действительно поперебирать идентификаторы. для более сложных вещей лучше использовать хук (см.выше).

Все правильно, только вот перебор этот надо сделать только один-единственный раз. Только что бы найти его, этот номер. Потом просто использовать его для удаления иконки. Он ведь константа и никогда не меняется.
А по поводу DWORD-а, так я никогда еще не встречал uID больше чем 1000. Хотя все возможно. ;-)

да, полностью согласен. способ простой и действенный.

SysTray Найти похожие ветки