Опять переносимость...

[Vitaliy]

Может кто знает, в чем проблема:
На WIN2000 все работает, а в 98-й - не хочет.
Вот часть кода:
Private Sub Command2_Click()
hProcess = OpenProcess(&H1F0FFF, 1, mWnd)
TerminateProcess hProcess, 0
TrayI.cbSize = Len(TrayI)
TrayI.hWnd = nRet
TrayI.uId = 1&
Shell_NotifyIcon NIM_DELETE, TrayI
End Sub

nRet - hWnd окна, которое поместило иконку в трей.

Т.е. в 98-й не удаляется иконка из трея после убития приложения

[MEMBER]

Не мучайтесь, проще помещать в трей свою иконку, мочить приложение, убирать свою иконку. Эффект тот-же.

[Vitaliy]

Да не работает оно так!!!! Уже пробовал...

[MEMBER]

Да? Щас проверю. Ещё раз.

[MEMBER]

Так, точно не работает. Говорила мне мама: "Сынок, мля, никогда не убивай исходники, даже когда они тебе кажутся ненужными".
Ведь я это делал... А потом, придурок, исходник удалил.
Ладно, попробую вспомнить.

[MEMBER]

Так, а если наоборот, сначала делетить иконку, а потом мочить приложение?

[Vitaliy]

Увы, и так не работает И как с ним бороться?

[STING]

Может кто знает, в чем проблема:
На WIN2000 все работает, а в 98-й - не хочет.
Вот часть кода:
Private Sub Command2_Click()
hProcess = OpenProcess(&H1F0FFF, 1, mWnd)
TerminateProcess hProcess, 0
TrayI.cbSize = Len(TrayI)
TrayI.hWnd = nRet
TrayI.uId = 1&
Shell_NotifyIcon NIM_DELETE, TrayI
End Sub

nRet - hWnd окна, которое поместило иконку в трей.

Т.е. в 98-й не удаляется иконка из трея после убития приложения

Засунь в Unload формы - Tray1.ShowIcon False.

[Vitaliy]

Засунь в Unload формы - Tray1.ShowIcon False.


1. Дак это-ж не моя форма (вернее - иконка) в трее сидит. Это другое приложение, которое запускает моя программа и которое она должна выгружать.

2. А где взять ShowIcon если у меня TrayI объявляется как пользовательский тип....

Или я чего-то не понял?[/code]

[STING]

Раз чужое приложение, то это рабртать не будет... надо подумать...

[MEMBER]

Меня терзают смутные сомнения, что hWnd по которому вы делетите иконку неверен.
Для проверки напишите программу, которая в цикле шлёт NIM_DELETE постоянно наращивая hWnd.

[SergeySV]

Меня терзают смутные сомнения, что hWnd по которому вы делетите иконку неверен.
Для проверки напишите программу, которая в цикле шлёт NIM_DELETE постоянно наращивая hWnd.

Если хотите проверить hWnd, то проще и надежней использовать программку типа Spy++ или бесплатный аналог: Winspector Spy.

И потом, я может быть конечно не прав, но как-то здесь уже обсуждалась похожая проблема и выяснилось, что прога-та закрывается, а вот иконка в трее просто не убирается(перерисовывается), остается тупо висеть и предлагалось просто сначала типа снять ее, а потом уже закрывать прогу...

[Vitaliy]

Да, действительно, необходимо сначала удалять иконку, а потом удалять приложение. Если я беру какой-то диапазон от моего вычисленного hWnd
(hWnd - и hWnd +) и прохожусь в цикле по трею на предмет удаления иконки (как советовал MEMBER), то иногда она удаляется. Причем всегда диапазон меняется... Не знаю, то ли hWnd не правильно вычисляется, то ли еще что-то.
Кстати, в Spy++ hWnd окна в шестнадцатиричном виде, а у меня, судя по всему, в десятичном. Может ли это влиять?
Хотя, на 2000-й все работает без проблем...

[MEMBER]

SergeySV
Спасибо, я знаю как это делается. Проблема не в получении hWnd, проблема в получении hWnd окна поместившего в трей иконку. А это не обязательно главная форма.

Vitaliy
Давайте по порядку. Вам надо убивать только конкретное приложение, или любое? Можно сделать так - находим hWnd главной формы, потом находим hWnd её дочерних окон. Перед убийством отправляем в цикле NIM_DELETE с hWnd всех найденных окон.

[Vitaliy]

MEMBER: Мне надо убивать конкретное приложение. Это коммуникационная программа, с которой взаимодействует моё приложение. Дочерних окон у неё вроде нет. Заголовок окна у неё меняется в зависимости от условий работы.
Проблема состоит в том, что в 2000-й все работает без проблем - по вычисленному hWnd формы из трея удаляется и иконка и убивается приложение. В 98-й - приложение убивается, а иконка не удаляется
Я уже и не знаю, что с ним делать... Может есть какая-нибудь функция, перерисовывающая трей, или как с ним бороться?

[GSerg]

Где же наша система хранения полезных исходников? Была бы - выложил бы... Хотя ещё добраться нужно, сейчас нет под рукой. Короче, я как-то юзерконтрол писал для трея. Привязка, ессно, к хвнд оного, а не формы. Поэтому убивается замечательно по факту закрытия программы без всякого гемора... Домой приду - выложу...
Или сам напиши, нетрудно

[FaKk2]

Иконка продолжается работать?
Т.е. иногда бывает глюк, что иконку вроде бы удалили, но она не исчезла. Обычно исчезает при наведении мышки.

[Vitaliy]

Ура!!! Нашел!!!
Кому интересно - фрагмент кода:

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

Declarations:
.............
Public Const PROCESS_TERMINATE = &H1
Public Const WM_QUERYENDSESSION = &H11
.............
.............
Public Sub KillProcess(ByVal hwnd As Long)
Dim pID As Long
Dim hProc As Long
GetWindowThreadProcessId hwnd, pID
hProc = OpenProcess(PROCESS_TERMINATE, False, pID)
Call SendMessage(hwnd, WM_QUERYENDSESSION, 0, 1)
TerminateProcess hProc, 0
CloseHandle hProc
End Sub


Таким образом удаляется и иконка из трея без всяких дополнительных манипуляций с треем.
P.S. Почему-то это работает только с тем из моих приложений, с которым я "боролся". На другие почему-то не действует

[STING]

Загадочная душа Windows...

[alibek]

Ты ему (процессу) говоришь, что щас будешь мочить гад
Вот он и начинает выгружаться и первым делом сам удаляет значок из трея. А потом ты его мочишь. Т.е. значок удаляет не твой код, а сам тот процесс, который ты убиваешь. Другие программы видимо удаляют значок на другие события (возможно, не WM_QUERYENDSESSION, а WM_ENDSESSION).

[Sebas]

А мож сообщение окну на выход слать?