Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Отклучение службы [D7, WinXP]


Sanek_metaller ©   (2004-04-17 12:20:00) 

Как програмно отключтить службу(Сервис)?


Burmistroff   (2004-04-19 22:16:00) [1]

а можно еще winExec('net stop "SmcService"', SW_HIDE) ;)


Sanek_metaller   (2004-04-19 18:45:00) [2]

>GanibalLector ©   (18.04.04 01:42) [3]
Вопрос был о том как ОТКЛЮЧИТЬслужбу(Снять галочку с чекбокса в MSConfig'e),но все равно огромное спасибо,буду пробовать.
>Sanek_metaller ©   (17.04.04 21:40) [1]
Сори,там должно было быть так:
Неужели отключить службу можно толькочерез MSConfig???


GanibalLector   (2004-04-18 01:42:00) [3]

1 вариант:
...
var shell:OleVariant;
begin
shell:=CreateOleObject('Shell.Application');
shell.ServiceStop('SmcService',false);
end;

2 вариант:
...
var aa:cardinal;ess:TEnumServiceStatus;
begin
aa:=OpenService(OpenSCManager(nil,nil, SC_MANAGER_ALL_ACCESS),'SmcService',SERVICE_ALL_ACCESS);
ControlService(aa,SERVICE_CONTROL_STOP,ess.ServiceStatus);
end;

Естественно,ты должен знать ПРАВИЛЬНОЕ имя сервиса.Более того, данный метод вовсе не означает что ты 100% остановиш сервис.
Почему? Да на то очень много причин...
Долго млять.Да и вопрос был о остановке,а не о причинах неудач.

З.Ы. Успехов!!!


Игорь Шевченко   (2004-04-17 23:43:00) [4]

OpenSCManager + OpenService + ControlService + CloseServiceHandle + CloseServiceHandle


Sanek_metaller   (2004-04-17 21:40:00) [5]

Неужели отключить службу можно через MSConfig???


Наверх

Титульная страница Поиск, карта сайта Написать письмо