Текущий архив: 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.546 c
