Помогите с 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

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