Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=159180&view=findpost&p=1320377 Sun, 29 Oct 2006 07:00:02 +0000 Сервис не стартует с системой https://forum.sources.ru/index.php?showtopic=159180&view=findpost&p=1320377 и рабочий стол сервису может быть назначен совсем другой(галочка взаимодействия с рабочим столом)]]> Virtuals Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=159180&view=findpost&p=1319674 Sat, 28 Oct 2006 08:17:24 +0000 Сервис не стартует с системой https://forum.sources.ru/index.php?showtopic=159180&view=findpost&p=1319674 Просто System Tray еще не существует при старте сервиса.]]> WildBear Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=159180&view=findpost&p=1318532 Fri, 27 Oct 2006 08:33:20 +0000 Сервис не стартует с системой https://forum.sources.ru/index.php?showtopic=159180&view=findpost&p=1318532
Написал свой интерактивный сервис, установил. Когда запускаю ручками из services все отлично работает. Кнопочка стоп корректно завершает работу. Вобщем претензий нет. А вот при старте системы ничего не происходит. Сервис маркирован как Auto, но автозапуска не получается.

Пользовался TService из BDS2006.
Свойство startType выставлял и в stBoot и в stAuto и в stSystem - результат одинаковый (точнее его нет)
После каждого старта в журнале приложение появляется следующее:

Цитата
Не найдено описание для события с кодом ( 0 ) в источнике ( udenet ). Возможно, на локальном компьютере нет нужных данных в реестре или файлов DLL сообщений для отображения сообщений удаленного компьютера. Попробуйте использовать ключ /AUXSOURCE= для получения этого описания, - дополнительные сведения об этом содержатся в справке. В записи события содержится следующая информация: Service failed on start: Error reading TrayIcon1.Visible: Cannot create shell notification icon.


Код запуска:
    procedure Tudenet.ServiceExecute(Sender: TService);
    begin
     while not terminated do
        begin
          ServiceThread.ProcessRequests(True);
        end;
    end;
     
    procedure Tudenet.ServiceStart(Sender: TService; var Started: Boolean);
    begin
    fEdUdenetSupport:=TfEdUdenetSupport.Create(self);
    fEdUdenetSupport.ServiceMode:=true;
    end;
     
    procedure Tudenet.ServiceStop(Sender: TService; var Stopped: Boolean);
    begin
     fEdUdenetSupport.Close;
     fEdUdenetSupport.free;
    end;

fEdUdenetSupport - это форма
Чего же я не додалал? Подскажите пожалуйста

Добавлено
Извините господа, вопрос снят...я когда читал в виндах сообщение об ошибке - последняя строчка спряталась
Цитата
Service failed on start: Error reading TrayIcon1.Visible: Cannot create shell notification icon.

...у видел её только когда снова перечитал свой же вопрос уже на форуме ))) :wub:]]> Juve Delphi: Система, Windows API