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

Вниз

Службы Win   Найти похожие ветки 

← →
alien thing   (2006-02-06 06:37) [0]

Как программно остановить и запустить службу "Сервер" на локальной машине под windows ?

---

← →
TUser ©   (2006-02-06 06:55) [1]

ControlService()

---

← →
alien thing   (2006-02-06 07:05) [2]

а можно пример или сцылку? мне это сложно все
***
я вот нашёл часть кода но она не останавливается из-за того что от неё зависят другие службы:

procedure StopService(ServiceName: String);
var
schService,
schSCManager: DWORD;
p: PChar;
ss: _SERVICE_STATUS;
begin

p:=nil;
schSCManager:= OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
if schSCManager = 0 then RaiseLastWin32Error;
try
schService:=OpenService(schSCManager,PChar(ServiceName),SERVICE_ALL_ACCESS);
if schService = 0 then RaiseLastWin32Error;
try
if not ControlService(schService,SERVICE_CONTROL_STOP,SS) then  RaiseLastWin32Error;
finally
CloseServiceHandle(schService);
end;
finally
CloseServiceHandle(schSCManager);
end;
end;

---

← →
alien thing ©   (2006-02-06 07:28) [3]

все, кажется решил проблему
SERVICE_CONTROL_PAUSE / SERVICE_CONTROL_CONTINUE, все равно спасибо за ответ!

---

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

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

Наверх

Память: 0.47 MB
Время: 0.043 c