Текущий архив: 2005.02.27;
Скачать: 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 вся ветка
Текущий архив: 2005.02.27;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.043 c
