Добрый день. Ранее для определенных задач был написан собственный сервис (наследник от TService). Все было хорошо сервис без проблем работал в WinXP, но встала задача запустить его на Windows Server 2008. Сервис установился в службы, но вот при попытке его запуска выдается сообщение мол нет доступа код ошибки 5. В реестре для пользователей этого сервиса назначил максимальные права, все равно ошибка доступа. Вот думаю может что-то в Win Server 2008 изменилось и теперь требуется другой подход работы с сервисами?
Не вдаваясь в подробности, логика работы сервиса у меня была такой - если запуск MyService.exe происходил с параметром /INSTALL или /UNINSTALL то все сводилось к вызову некого моего метода Execute, который собственно создавал TMyService - наследник TService, а именно:
| Код |
if not SvcMgr.Application.DelayInitialize or SvcMgr.Application.Installing then
SvcMgr.Application.Initialize;
SvcMgr.Application.CreateForm(TMyService, MyService);
SvcMgr.Application.Run;
|
Но помимо базовых параметров /INSTALL или /UNINSTALL были свои собственные параметры /START /STOP (старт и остановка сервиса). Они позволяли пользователю управлять сервисом из под командной строки, например, MyService.exe /START приводил к запуску сервиса.
Старт сервиса делался в целом так (не стал здесь приводить целый класс, поэтому упростил код, чтобы минимизировать размер):
| Код |
ServiceControlManager := OpenSCManagernil, nil, SC_MANAGER_ALL_ACCESS);
if (ServiceControlManager <> 0) then
begin
ServiceHandle := OpenService(ServiceControlManager, 'MyService', SERVICE_ALL_ACCESS);
if (ServiceHandle <> 0) then
WinSvc.StartService(ServiceHandle, 0, ServiceArgVectors); // ServiceArgVectors == nil
end;
|
Так вот при вызове WinSvc.StartService-возвращается, что мол нет доступа. |
)