стои сервис

← →
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]

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

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