стои сервис
rezo © (2005-02-16 10:12:00)
Нужно остановить службу, и изменить тип запуска
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:00) [1]
Поле "Тема вопроса" не оформлено.
Наверх 
ЧАТ |
Орешник |
|
