Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.14;
Скачать: CL | DM;

Вниз

Взаимодействие сервиса 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]

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



Страницы: 1 вся ветка

Текущий архив: 2003.04.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
6-44300
Behemoth
2003-02-20 18:37
2003.04.14
Помогите выбрать...


1-44252
asdfasdf
2003-03-31 20:14
2003.04.14
Факториал


1-44155
lex01
2003-04-03 16:00
2003.04.14
как получить значение ключа реестре


6-44307
_MAD_
2003-02-15 23:19
2003.04.14
Дружда cgi и делфи


3-44023
korvin
2003-03-25 15:52
2003.04.14
Выбор нескольких позиций в объекте типа CheckListBoх из базы.