| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите с Win NT сервисом [D5, NT4]
roman002 © (2002-09-26 08:53:00)Написал вот сервис, при старте которого в трай падает иконка,
и она падает, когда стартуешь сервис на работающей машине, но при перезагрузке сервис стартуется ааа иконка-то..., может по другому как нужно делать?
doomin (2002-09-26 10:19:00) [1]Здесь когда-то пролетала компонента-обертка вокруг Service Control. На torry есть ее последняя версия, адаптированная под win2000. Рекомендую оставить сервис в покое и с помощью этой компоненты реализовать другой модуль, который будет управлять сервисом. А иконки можно даже разные помещать в зависимости от состояния сервиса как в SQL Server Manager
jam (2002-09-26 09:27:00) [2]надо проверять по таймеру или по Application.OnIdle
наличие окна explorer, поскольку сервисы стартуют до explorera и не могут отобразить иконку пока эксплорер не запущен:
procedure TfmMain.AppOnIdle(Sender: TObject;
var Done: Boolean);
begin
if YourService.Status = csRunning then
TrayIcon.Active := (FindWindow("Progman", nil) <> 0);
Done := true;
end;
...
procedure TfmMain.FormCreate(..)
begin
Application.OnIdle := AppOnIdle;
end;
TTCustomDelphiMaster (2002-09-26 09:24:00) [3]Обычно делают отдельно сервис и приложение для управления сервисом. Вот оно то и помещает свою иконку в tray.
Anatoly Podgoretsky (2002-09-26 09:12:00) [4]Зачем иконка сервису, ведь когда стартует сервис десктопа как правило нет и ей некуда падать.
| |
