Как убить иконку в трее?

@pavelpm · Регистрация: 11.06.2007

Студворк — интернет-сервис помощи студентам

Доброго дня всем!
Долго мучился над проблемой как убить запущенную прогу, убил.
Но возникла новая проблема. После того как я жестко убиваю программу (по ID) свернутую в трей программа убивается, но ее иконка в трее остается до тех пор, пока на него не наведешь мышкой. Как можно это безобразие исправить, то есть как убить рограмму и все что с ней свяэано?

С уважением PavelM.

16.06.2010, 14:48

Попробуй просто принудительно обновить трей:

Visual Basic
1
2
trayHwnd = FindWindow('TrayNotifyWnd', vbNullString)
RedrawWindow trayHwnd, ByVal 0&, ByVal 0&, RDW_INVALIDATE + RDW_UPDATENOW + RDW_ALLCHILDREN

16.06.2010, 14:49

Попробуй просто принудительно обновить трей:

Visual Basic
1
2
trayHwnd = FindWindow('TrayNotifyWnd', vbNullString)
RedrawWindow trayHwnd, ByVal 0&, ByVal 0&, RDW_INVALIDATE + RDW_UPDATENOW + RDW_ALLCHILDREN

16.06.2010, 14:49

Попробуй просто принудительно обновить трей:

Visual Basic
1
2
trayHwnd = FindWindow('TrayNotifyWnd', vbNullString)
RedrawWindow trayHwnd, ByVal 0&, ByVal 0&, RDW_INVALIDATE + RDW_UPDATENOW + RDW_ALLCHILDREN

16.06.2010, 17:26

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Declare Function Shell_NotifyIcon Lib 'shell32' Alias 'Shell_NotifyIconA' (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Private Type NOTIFYICONDATA
  cbSize As Long
  hWnd As Long
  uId As Long
  uFlags As Long
  uCallBackMessage As Long
  hIcon As Long
  szTip As String * 64
End Type
Private nid As NOTIFYICONDATA
 
Private Sub Form_Terminate()
      Shell_NotifyIcon NIM_DELETE, nid
End Sub

16.06.2010, 18:22

Уважаемый ComeRun!
Ваш код, во-первых, показывает как убить иконку СВОЕГО приложения. А во-вторых (впрочем, это вытекает из первого), где инициализация переменной 'nid' перед вызовом Shell_NotifyIcon ?! Вы что, предлагаете передать этой функции NULL ?! и кого она тогда убьёт, по-вашему ?!

@pavelpm · 17.06.2010, 08:41 **[ТС]**

Доброго дня всем!
Спасибо за ответы, есть куда копать.
Можно по подробнее об обновлении трея (второй вариант пока не пробовал).
Описал API:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Declare Function FindWindow Lib 'user32' Alias 'FindWindowA' (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Declare Function RedrawWindow Lib 'user32' (ByVal hwnd As Long, lprcUpdate As RECT, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
Private Const RDW_INVALIDATE = &H1
Private Const RDW_UPDATENOW = &H100
Private Const RDW_ALLCHILDREN = &H80

Делаю

Visual Basic
1
trayHwnd = FindWindow('TrayNotifyWnd', vbNullString)

А эта строка не прет.

Visual Basic
1
RedrawWindow trayHwnd, ByVal 0&, ByVal 0&, RDW_INVALIDATE + RDW_UPDATENOW + RDW_ALLCHILDREN

Ощибка на 0&

С уважением PavelM

17.06.2010, 12:34

Надо изменить декларацию RedrawWindow:

Visual Basic
1
2
3
4
5
Public Declare Function RedrawWindow Lib 'user32.dll' ( _
     ByVal hwnd As Long, _
     lprcUpdate As Any, _
     ByVal hrgnUpdate As Long, _
     ByVal fuRedraw As Long) As Long

Т.е. сделать 'lprcUpdate As Any', а не '... As RECT'.
Если интересно, почему так, могу попробовать объяснить.

@pavelpm · 17.06.2010, 12:55 **[ТС]**

Объясни, интересно конечно.
Хотя я запустил прогу и при lprcUpdate As RECT.
Затем попробовал так как ты подсказал. Результат один, трей не исчезает, а при lprcUpdate As Any моя прога долго запускается.

17.06.2010, 18:49

Смотри: lprcUpdate объявлен как RECT, поэтому 0& (в 'ByVal 0&') - недопустимое для этой переменной значение: ведь бэйсик контролирует соответствие типов! Наверное, можно сделать и так:

Visual Basic
1
2
3
4
5
6
7
Dim tempRect As RECT
With tempRect
    .Left = 0
    .Top = 0
    .Right = 0
    .Bottom = 0
End With

а потом уже вызвать функцию RedrawWindow, передав вторым аргументом переменную tempRect. НО: я не уверен, что функция истолкует этот 'нулевой' прямоугольник как 'NULL-значение', а ведь ей именно NULL надо скормить вторым аргументом, чтобы она - согласно описанию в MSDN - обновила ВСЁ содержимое окна. В одном API-справочнике, расширяющем MSDN примерами для VB, было сказано, что если вам надо передать в API-функцию NULL (которого в бэйсике нет), то передавайте вместо него 'ByVal 0&', только для начала убедитесь, что в декларации функции соотв. аргумент, во-первых, идёт без 'ByVal', а во-вторых, что он объявлен как 'Any', чтоб бэйсик отключил свой анализатор на type mismatch.

Это и понятно: в Си, насколько я помню институтский курс, NULL - это нулевой указатель, т.е. 'адрес в никуда'...

17.06.2010, 18:50

'а при lprcUpdate As Any моя прога долго запускается' - вот это странно, никогда у себя такого эффекта не замечал.

17.06.2010, 20:34

Вообще, интересная у тебя задачка.
Вот по адресу http://www.dotnet247.com/247reference/msgs/39/196797.aspx лежит дискуссия, где человеку говорят, что нету, мол, средств перечисления иконок, расположенных в системном трее.

Зато по адресу http://help.madshi.net/TrayIcons.htm лежит софт, который умеет это делать

) если точнее - он предоставляет интерфейс доступа к коллекции этих иконок.

Наконец, вот самая важная информация: см. ссылку http://www.pcmag.com/print_article/0,1761,a=13656,00.asp.
Цитирую:
«When a program that has a system tray icon ends, that program must specifically call the Shell_NotifyIcon() Windows function to remove the tray icon. If the tray-based program crashes, the orphaned icon will hang around until the mouse cursor passes over it. The same is true if EndItAll kills the program. And there is no function call that will force the system tray to refresh its icons. EndItAll's RedrawSystray()function, found in Endfuncu.pas, fakes the necessary mouse movement. It finds the window handle of the system tray, gets its bounding rectangle, and programmatically moves the mouse cursor back and forth across it in 8-pixel increments. It only pauses 2 milliseconds between moves, so you're not likely to see it in action.»

Т.е. автор этой ссылки написАл на Паскале код, который вычищает иконку из системного трея, эмулируя движение над ней курсора мыши. И, кроме того, он пишет, что это единственный метод - что не существует способа сделать refresh системного трея! Так что мой совет с RedrawWindow лишён смысла.

Однако, я что-то не смог найти, где можно загрузить паскалевские исходники. Поэтому продолжил поиск, и нашёл, похоже, готовое решение - от всем известного Аркадия Оловянникова:
http://www.freevbcode.com/ShowCode.Asp?ID=3291

Детально я не разбирался - только скачал ZIP и запустил VB-проект. И получил список всех приложений, чьи иконки болтаются в трее. Попробуй поковыряться с этим: если сможешь получить bounding rectangle нужной тебе иконки, то потом с помощью API SetCursorPos сможешь навести на неё указатель мыши и затем вернуть его обратно.

Удачи! Если получится - код в студию !

)

@pavelpm · 20.06.2010, 06:46 **[ТС]**

Доброго дня всем!
Спасибо за информацию!
Буду ковырять.

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@pavelpm 0 / 0 / 0 Регистрация: 11.06.2007 Сообщений: 58

	Как убить иконку в трее? 16.06.2010, 13:28. Показов 3630. Ответов 12 Метки нет (Все метки) Доброго дня всем! Долго мучился над проблемой как убить запущенную прогу, убил. Но возникла новая проблема. После того как я жестко убиваю программу (по ID) свернутую в трей программа убивается, но ее иконка в трее остается до тех пор, пока на него не наведешь мышкой. Как можно это безобразие исправить, то есть как убить рограмму и все что с ней свяэано? С уважением PavelM. 0

Comanche
	16.06.2010, 18:22
	Уважаемый ComeRun! Ваш код, во-первых, показывает как убить иконку СВОЕГО приложения. А во-вторых (впрочем, это вытекает из первого), где инициализация переменной 'nid' перед вызовом Shell_NotifyIcon ?! Вы что, предлагаете передать этой функции NULL ?! и кого она тогда убьёт, по-вашему ?!

@pavelpm 0 / 0 / 0 Регистрация: 11.06.2007 Сообщений: 58
	17.06.2010, 12:55 [ТС]
	Объясни, интересно конечно. Хотя я запустил прогу и при lprcUpdate As RECT. Затем попробовал так как ты подсказал. Результат один, трей не исчезает, а при lprcUpdate As Any моя прога долго запускается. 0

Comanche
	17.06.2010, 18:50
	'а при lprcUpdate As Any моя прога долго запускается' - вот это странно, никогда у себя такого эффекта не замечал.

Comanche
	17.06.2010, 20:34
	Вообще, интересная у тебя задачка. Вот по адресу http://www.dotnet247.com/247reference/msgs/39/196797.aspx лежит дискуссия, где человеку говорят, что нету, мол, средств перечисления иконок, расположенных в системном трее. Зато по адресу http://help.madshi.net/TrayIcons.htm лежит софт, который умеет это делать ) если точнее - он предоставляет интерфейс доступа к коллекции этих иконок. Наконец, вот самая важная информация: см. ссылку http://www.pcmag.com/print_article/0,1761,a=13656,00.asp. Цитирую: «When a program that has a system tray icon ends, that program must specifically call the Shell_NotifyIcon() Windows function to remove the tray icon. If the tray-based program crashes, the orphaned icon will hang around until the mouse cursor passes over it. The same is true if EndItAll kills the program. And there is no function call that will force the system tray to refresh its icons. EndItAll's RedrawSystray()function, found in Endfuncu.pas, fakes the necessary mouse movement. It finds the window handle of the system tray, gets its bounding rectangle, and programmatically moves the mouse cursor back and forth across it in 8-pixel increments. It only pauses 2 milliseconds between moves, so you're not likely to see it in action.» Т.е. автор этой ссылки написАл на Паскале код, который вычищает иконку из системного трея, эмулируя движение над ней курсора мыши. И, кроме того, он пишет, что это единственный метод - что не существует способа сделать refresh системного трея! Так что мой совет с RedrawWindow лишён смысла. Однако, я что-то не смог найти, где можно загрузить паскалевские исходники. Поэтому продолжил поиск, и нашёл, похоже, готовое решение - от всем известного Аркадия Оловянникова: http://www.freevbcode.com/ShowCode.Asp?ID=3291 Детально я не разбирался - только скачал ZIP и запустил VB-проект. И получил список всех приложений, чьи иконки болтаются в трее. Попробуй поковыряться с этим: если сможешь получить bounding rectangle нужной тебе иконки, то потом с помощью API SetCursorPos сможешь навести на неё указатель мыши и затем вернуть его обратно. Удачи! Если получится - код в студию ! )

@pavelpm 0 / 0 / 0 Регистрация: 11.06.2007 Сообщений: 58
	20.06.2010, 06:46 [ТС]
	Доброго дня всем! Спасибо за информацию! Буду ковырять. 0