Как отследить событие что-то типа «Трей создается»?

Question

[Che_Bu_Rashka]

Моё приложение запускается службой и при запуске добавляет иконку в системный трей. Проблема в том, что если пользователь не сразу вошел в систему (долго вводил пароль) приложение хоть и запускается службой, но без значка в трее, его еще не существовало, когда ПО пыталось создать иконку.
Также наблюдается такой недостаток: если в диспетчере задач "убить" процесс Explorer.exe, а затем там же создать новый, то все значки в трее восстанавливаются, а мой нет. По всему видно нужно отловить какое-то событие типа "Трей Создается" и при возникновении оного реагировать, добавляя свою иконку. Собственно вопрос: что за событие и как отреагировать? (Win 7 & Win XP)

Answer 1

[dude2012]

Мониторить хэндл окна таскабара и трея. Раз в минуту или 30 секунд. Тупо, но не особо ресурсоёмко. Если хэндл сменился , то добавить иконку.

function TaskbarHandle: THandle;
begin
Result := FindWindow('Shell_TrayWnd', nil);
end;

function TrayHandle: THandle;
begin
Result := FindWindowEx(TaskbarHandle, 0, 'TrayNotifyWnd', nil);
end;

Comments

[Che_Bu_Rashka]

была такая мысль, но хотелось по-правильному. Я точно знаю событие есть какое-то. Вчера вроде видел, и забыл, сегодня найти не могу ))

[dude2012]

Вот честно говоря не знаю как перехватывать события в сервисе или я туплю. Событие содержит хэндл окна, а сервисы как правило хэндлов не имеют.

Answer 2

[Che_Bu_Rashka]

//ловим событие  WM_TaskbarCreated
procedure TmwdForm.WndProc(var msg: TMessage);
begin
  inherited;
  if msg.Msg = WM_TaskbarCreated then
    <что-то делаем>
end;

...
...
initialization
  WM_TASKBARCREATED := RegisterWindowMessage('TaskbarCreated');

end.

Comments

[Che_Bu_Rashka]

Тока в ХР не особо хорошо работает, Обошел костылями - мой процесс запускается только после explorer.exe

[dude2012]

Che_Bu_Rashka: с сервисами какие-то косяки при работе с оконными сообщениями. Раньше можно было выставить флажок, что сервис интерактивный, а в последних виндах он игнорируется. Даже FindWindow не работает как следует.