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

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

← →
rezo   (2005-02-16 10:12) [0]

Нужно остановить службу, и изменить тип запуска
var
aa:cardinal;ess:TEnumServiceStatus;
begin
aa:=OpenService(OpenSCManager(nil,nil, SC_MANAGER_ALL_ACCESS),"RSVP",SERVICE_ALL_ACCESS);
ControlService(aa,SERVICE_CONTROL_STOP,ess.ServiceStatus);
dwStartType = (fDisable) ? SERVICE_DISABLED

ChangeServiceConfig(
       aa,        // дескриптор сервиса
       SERVICE_NO_CHANGE, // тип сервиса: нет изменений
       SERVICE_AUTO_START,       // меняем тип запуска сервиса
       SERVICE_NO_CHANGE, // контроль ошибок: нет изменений
       nil,              // путь сервиса: нет изменений
       nil,              // принадлежность к группе: нет изменений
       nil,              // --""--: нет изменений
       nil,              // зависимости: нет изменений
       nil,              // имя аккаунта: нет изменений
       nil,              // пароль: нет изменений
       nil)            // отображаемое имя: нет изменений

end;После чего служба останавливается, а тип запуска остается прежним. Что не так.Как быть?

---

← →
panov ©   (2005-02-16 10:14) [1]

Поле "Тема вопроса" не оформлено.

---

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

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



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