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

@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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

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

	Как убить иконку в трее? 16.06.2010, 13:28. Показов 3651. Ответов 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