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

Остановка службы   Найти похожие ветки 

← →
rezo   (2005-02-16 10:17) [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);


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

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

---

← →
rezo   (2005-02-16 10:37) [1]

всем спасибо заработалоооо

---

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

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



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