Установка сервиса

← →
Донской (2002-09-14 15:31) [0]

Помогите, пожалуйста!
Я передрал из Хелпа к Delphi пример для написания сервиса.
Запускаю его командной строкой /install , показывается сообщение что сервис устиановлен успешно. Но когда я пытаюсь его стартануть из менеджера служб
(Панель управления/Администрировани/управление компьютером/службы), появляется предупреждение "Нет доступа".
Уж и не знаю, что думать!

← →
Донской (2002-09-14 16:27) [1]

Я администратор на машине.

← →
ZZ © (2002-09-14 16:49) [2]

А другие запускаются?

← →
Донской (2002-09-14 17:16) [3]

Да, в том то и дело!

← →
ZZ © (2002-09-14 17:20) [4]

А если его запустить с помощью StartService и посмотреть код ошибки (т.к. это не нормальное что-то :) Врядли права доступа при установке меняются.

← →
Донской (2002-09-14 17:23) [5]

В смысле их другого приложения? Или самого себя? Хм. Сейчас попробую.

← →
ZZ © (2002-09-14 17:29) [6]

Донской
Напиши другую!!! прогу для запуска этого сервиса. Там 2-3 функции будут. Потом получи код и текст ошибки GetLastError + SysErrorMessage

← →
Донской (2002-09-14 17:33) [7]

Понял, Ок.
Createservice и startservice
Фуух...

← →
ZZ © (2002-09-14 17:35) [8]

Неа!
OpenSCManager -> OpenService -> StartService
А CreateService будет устанавливать сервис... который уже установлен

← →
Донской (2002-09-14 17:41) [9]

А, ясно.
OpenSCManager уже есть..))

← →
Донской (2002-09-14 17:57) [10]

Что интересно еще - на другой машине все нормально. Там та же операционка. А вот у меня....

А переустанавливать пробовал?

← →
Донской (2002-09-14 18:06) [12]

Переустанавливать что?
Винды? Да вроде свежие еще))

← →
Донской (2002-09-14 18:10) [13]

Компилятор ругается вот на это
StartService(SChandle,0, nil);
на последний аргумент. Мне же не надо перерписывать функцию ServiceMain?

Установка сервиса Найти похожие ветки