Службы 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;

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

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