SysTray и в нем Balloon, а там глюк под XP !!!

[Eduard]

Доброе время суток!
И вот снова XP меня в очередной раз шокирует своей тупостью.
Качнул недавно с vbAccelerator исходник SysTray w/ BalloonTip, с поддержкой WinMe и Unicode'ом для NT. У меня самого WinMe юзается. Так вот на нем я пишу прогу и т.д. и т.п., и Баллонн работал зашибись как надо. Запустил на XP, и ентот баллончик совсем обарзел, - когда он появляется, то светиться он может там, хоть всю вечность, когда таймаут у него установлен только 15 сек. Вообщем как я там только с ума не сходил, все ровно он светиться черти знает сколько.

Вообщем помогите как нибудь под XP таймаут настроить для баллонна.
Думаю может кто заглянет в этот исходник, что поправить надо там (а тож на vbAccelerator'е все второпях делают).

В исходнике: сам этот класс модуль, которой творит "чудеса", и небольшой примерчик, который почему-то под Me работает "как доктор прописал", а под хваленую M$-ом XP х** пинает.

[Vovik]

А кто тебе сказал, что в XP для балунов вообще есть ограничение? Это было на старых платформах, а в NT - пока сам не заглушишь, она не тухнит.... Я даже когда в инет подключаюсь, он выводит скорость подключения..... Специально следил, когда она заглохнет - нифига... Пока сам не закрыл - не успакоилась.

[GSerg]

Не, если мышью над ним поводить, таки-пропадает...

[Eduard]

Да не может быть, что в XP нету таймаута для баллона, в MSDN об этом вообще не чего не сказано:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/structures/notifyicondata.asp

Даже если так, то как его глушить тогда уж !? В исходнике нету такой функции HideBalloonTip()

[GSerg]

Так это ж окно.
ShowWindow 0 ему сделай...

[Eduard]

Так это ж окно.
ShowWindow 0 ему сделай...

А как мне его хендл пробить? чтобы грохнуть!

[GSerg]

Ну так ты ж его создал через createwindow? Вот и хэндл.

[Eduard]

Ну так ты ж его создал через createwindow? Вот и хэндл.

Неа, в этом исходнике он создаётся через функцию Shell_NotifyIconA(...), в том то и проблема моя, может быть её и не было если бы я знал handle баллона, были у меня такие мысли создать фун-ю HideBalloonTip, но не знаю Как убить баллон, созданный через Shell_NotifyIcon??

[GSerg]

А что, мембер uTimeout в структуре отсутствует?

[Eduard]

А что, мембер uTimeout в структуре отсутствует?

Именна такой да, но есть uTimeoutAndVersion! Но в том то и вся соль, что под 9x/Me этот мембер работает, а под XP не идёт!!!

[Eduard]

Млин! Да помогите же мне убить баллон как-нибудь, я уже не знаю что делать, должно же быть какое-то решение

[Aleksej]

Выставь Timer1.Enable=True. И у меня всё начало работать.[/b]

[Eduard]

Выставь Timer1.Enable=True. И у меня всё начало работать.[/b]

Умно! А что я в таймер то засуно

[Igor_123]

Привет!
Не смотря на

uTimeout
The timeout value, in milliseconds, for a balloon-style ToolTip.

По моему это значение секунд.

Если в вызове

Код: Выделить всё

Private Sub Command1_Click()
   ...   
    cTrayIcon.ShowBalloonTip sMessage, sTitle, NIIF_INFO, (lTimeOut * 1000)
End Sub


Убрать умножение на 1000, то вроде работает

Код: Выделить всё

Private Sub Command1_Click()
   ...   
    cTrayIcon.ShowBalloonTip sMessage, sTitle, NIIF_INFO, (lTimeOut)
End Sub


Удачи!

[Aleksej]

В том проекте, что Ты приложил, на закладке Properties-Timer1 свойство Enable стоит в False, переставь его в True.

[Eduard]

Убрать умножение на 1000, то вроде работает!

Мне кажется и это всё фихня, но я не пробовал, пойду попробую!

[Eduard]

Убрать умножение на 1000, то вроде работает!

Нее, проверил всё ровно что-то не идёт и это мне уже надоело, ну всё перепробовал, блин, как эти M$ организовали функцию Shell_NotifyIcon в ХР вообще не понимаю, только все запороли (по сравнению с предыдущими платформами)!

Дайте тогда другой совет: Как закрыть баллон созданный Shell_NotifyIcon'ом, только не таймаутом, понимаете что не получается?? Может сообщение послать какое-нибуть главному моему окну, которое как-то скажется на баллоне? Не знаю просто, ну дайте что нибуть, пожалуйста, проект стоит из-за этого баллона дибильного, который очень-очень нужен.

[Igor_123]

Неа, в этом исходнике он создаётся через функцию Shell_NotifyIconA(...), в том то и проблема моя, может быть её и не было если бы я знал handle баллона, были у меня такие мысли создать фун-ю HideBalloonTip, но не знаю Как убить баллон, созданный через Shell_NotifyIcon??

Код: Выделить всё

Private Type NOTIFYICONDATAA
   cbSize As Long             ' 4
   hwnd As Long               ' 8 - Это не HWND Я идиот! Убейте меня, кто-нибудь!???
   uID As Long                ' 12
   uFlags As Long             ' 16
   uCallbackMessage As Long   ' 20
   hIcon As Long              ' 24
   szTip As String * 128      ' 152
   dwState As Long            ' 156
   dwStateMask As Long        ' 160
   szInfo As String * 256     ' 416
   uTimeOutOrVersion As Long  ' 420
   szInfoTitle As String * 64 ' 484
   dwInfoFlags As Long        ' 488
   guidItem As Long           ' 492
End Type

[GSerg]

Это hwnd родительского окна.

[Ennor]

А если под этим родителем перебрать всех детей и искать по классу окна? EnumWindows() никто не отменял. Понимаю, что решение, как всегда, через одно место, но хоть какое-то...

[GSerg]

Отношение здесь обратное
Не тултипы к окнам привязаны, а окна к тултипам, как ни странно

Хотя enumwindows и правда может сработать - но как узнать, где чей?
Хотя, помнится, где-то я видел в MSDN, что балун может быть одновременно только один, хм...
А раз один, то нуно findwindow по классу TOOLTIPS_CLASS

[Eduard]

А если под этим родителем перебрать всех детей и искать по классу окна? EnumWindows() никто не отменял. Понимаю, что решение, как всегда, через одно место, но хоть какое-то...

Хотя enumwindows и правда может сработать - но как узнать, где чей?
Хотя, помнится, где-то я видел в MSDN, что балун может быть одновременно только один, хм...
А раз один, то нуно findwindow по классу TOOLTIPS_CLASS

Вот задачки-то , но делать не чего, пойду пробовать, если поможет то большое пасибо за совет, не догадался бы