Как можно остановить службу на какое-то и потом ее запустить?

← →
menart © (2004-08-19 16:31) [0]

subj?

← →
Digitman © (2004-08-19 16:42) [1]

см. ф-цию ControlService() и всю необходимую ботву для работы этой ф-ции

← →
menart © (2004-08-19 17:41) [2]

нашел http://delphiworld.narod.ru/base/nt_services_control.html

← →
Rocket © (2004-09-20 20:20) [3]

Откопал ветку наконец...

Проблема с остановкой (запуск работает) сервиса RemoteRegistry - не получается.
Устанавливаю SERVICE_ALL_ACCESS, шлю SERVICE_CONTROL_STOP, а
GetLastError говорит, что ERROR_INVALID_SERVICE_CONTROL.
Но ведь вручную-то через "Администрирование" её можно остановить...

← →
Gastello (2004-09-20 23:00) [4]

Пишешь батник (программно или как) на старт и на запуск.
по таймеру или как хочешь запускаешь.

или прямо команду через shellexecute...

net stop/net start

Или я че-то не так понял?

Спасибо за ответ.
С net stop remoteregistry получилось, но мне надо включать/выключать эту службу на удалённых машинах. Да и потом охота сделать без посторонних процессов.

Делаю вот так:
mansch:=OpenSCManager("Имя машины", nil, SC_MANAGER_ALL_ACCESS); remreg_sch:=OpenService(mansch, "RemoteRegistry", SERVICE_ALL_ACCESS); QueryServiceStatus(remreg_sch, remreg_st); if remreg_st.dwCurrentState<>SERVICE_RUNNING then begin StartService(remreg_sch,1,servname); // работает {получаем нужные данные} ControlService(remreg_sch // < а вот этот ControlService не вырубает службу, а надо бы... SERVICE_CONTROL_STOP, remreg_st); end else {получаем нужные данные};

После этого делаю GetLastError и его значение, как я уже сказал, ERROR_INVALID_SERVICE_CONTROL, что означает, или такой команды вообще нет, или она к этой службе неприменима.

Помогите, please. Может ошибка в коде? Должно же по идее работать...

Ну что, никто не знает?

Как можно остановить службу на какое-то и потом ее запустить? Найти похожие ветки