Взаимодействие сервиса NT с System Tray

← →
zxss (2003-02-20 08:42) [0]

Доброго утра. Вопросик.

Имеется программа-почтовый сервер, написанная на Delphi. Программа выполнена в виде многопоточного сервиса NT. Работает под Win2000 Server. В программе имеется процедура помещения иконки программы в Tray и удаления ее оттуда. Через иконку вызывается окно настроек сервера. Но когда сервис стартует при загрузке ОС, в самой ОС пользователь еще не зарегистрирован, рабочего стола и панели задач еще нет. Как, собственно, и Tray-а. Поэтому в момент старта сервиса поместить иконку некуда. Значит ее надо помещать туда в момент после регистрации пользователя.

Вопрос: как можно внутри сервиса получить от Windows информацию о локальной регистрации (Logon) пользователя и появлении Tray-а. И по завершении сеанса работы пользователя (Logout) каким образом получить сообщение о необходимости убрать иконку?

Если с помощью сообщений Windows, то каких именно. Хотя даже в этом случае остается вопрос как их принять, ведь сервис не имеет окна программы, и, соответственно, не имеет оконной процедуры принятия сообщений.

С уважением, Евгений.

← →
Ruf (2003-02-20 12:38) [1]

Попробуй найти Tray так:

h:=FindWindow("Shell_TrayWnd",nil);
Если h>0, то Tray есть.

← →
zxss (2003-02-20 14:00) [2]

Это лишь частичное решение, т.к. чтобы показывать/скрывать иконку мне придется в таймере постоянно опрашивать эту функцию. Т.е. это вроде и решение, но некрасивое какое-то :).

Взаимодействие сервиса NT с System Tray Найти похожие ветки