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