Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=161163&view=findpost&p=1339792 Mon, 13 Nov 2006 08:01:51 +0000 Пропадает иконка в трее https://forum.sources.ru/index.php?showtopic=161163&view=findpost&p=1339792
    Option Explicit
    Dim WM_TASKBARCREATED As Long
    Private Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" _
    (ByVal lpString As String) As Long
     
    WM_TASKBARCREATED = RegisterWindowMessage("TaskbarCreated")
Затем нужно повесить хук на какую нить твою форму или контрол,
Теперь при создании трея. в хук-процедуру будут приходить сообщения WM_TASKBARCREATED.]]> SCINER Работа с Windows