Скачать: CL | DM;

Помогите с Win NT сервисом   Найти похожие ветки 

← →
roman002 ©   (2002-09-26 08:53) [0]

Написал вот сервис, при старте которого в трай падает иконка,
и она падает, когда стартуешь сервис на работающей машине, но при перезагрузке сервис стартуется ааа иконка-то..., может по другому как нужно делать?

---

← →
Anatoly Podgoretsky ©   (2002-09-26 09:12) [1]

Зачем иконка сервису, ведь когда стартует сервис десктопа как правило нет и ей некуда падать.

---

← →
TTCustomDelphiMaster ©   (2002-09-26 09:24) [2]

Обычно делают отдельно сервис и приложение для управления сервисом. Вот оно то и помещает свою иконку в tray.

---

← →
jam   (2002-09-26 09:27) [3]

надо проверять по таймеру или по 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;

---

← →
doomin   (2002-09-26 10:19) [4]

Здесь когда-то пролетала компонента-обертка вокруг Service Control. На torry есть ее последняя версия, адаптированная под win2000. Рекомендую оставить сервис в покое и с помощью этой компоненты реализовать другой модуль, который будет управлять сервисом. А иконки можно даже разные помещать в зависимости от состояния сервиса как в SQL Server Manager

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c