Главная страница
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.014 c
3-82678
ton2
2002-11-06 14:30
2002.11.25
Использование Access-базы из Delphi


1-82686
Cranium
2002-11-13 12:07
2002.11.25
Перенос из D3 в D5


14-82979
DeMoN-777
2002-11-07 04:45
2002.11.25
Бобровский


4-83053
Resheto
2002-10-11 16:34
2002.11.25
Как создать часы?


1-82691
TTCustomDelphiMaster
2002-11-13 16:57
2002.11.25
ActiveX.2