Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.25;
Скачать: CL | DM;

Вниз

Удаленнй сервис   Найти похожие ветки 

 
VIB   (2002-09-28 15:51) [0]

Если кто знает подскажите.
Как отключить (програмно) сервис другого сервера.
Например командой NT net stop <Имя сервиса>


 
ZZ ©   (2002-09-28 16:29) [1]

OpenSCManager -> OpenService -> SetServiceStatus


 
VIB   (2002-09-28 16:43) [2]

Если Вас не затруднит объяснить поподробнее.


 
ZZ ©   (2002-09-28 16:50) [3]

Если Вас не затруднит объяснить поподробнее.
или по русски - давай код :)

uses WinSvc;
var
h... : THandle;
SS:SERVICE_STATUS;

hSCM:=OpenSCManager("\\SUPERSERVER",nil,SC_MANAGER_ALL_ACCESS);
hSrv:=OpenService(hSCM,"<Имя сервиса>",SERVICE_ALL_ACCESS);
ControlService(hSrv,SERVICE_CONTROL_STOP,SS);

Примерно так.. Не проверял. (SetServiceStatus - это не то :))



 
VIB   (2002-09-28 17:11) [4]

Спасибо за помощь.
Сервис останавливается.
Если можете напишите как запустить опять.(Пограмно)


 
ZZ ©   (2002-09-28 17:32) [5]

Вместо ControlService StartService(hSrv,0,nil);


 
VIB   (2002-09-28 17:49) [6]

Спасибо за помощь. Все заработало.



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

Текущий архив: 2002.11.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
3-82678
ton2
2002-11-06 14:30
2002.11.25
Использование Access-базы из Delphi


3-82624
OlegKrt
2002-11-05 15:49
2002.11.25
Реструктуризация таблицы Paradox программно


14-82996
Nick-From
2002-11-07 15:52
2002.11.25
Screen saver на Delphi


3-82612
stalker_pro
2002-11-04 18:50
2002.11.25
Вопрос по ADO и MIDAS


1-82805
Zolen
2002-11-13 18:01
2002.11.25
Две строки в ячейке Stringgrid