| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Службы Win [D7, 2000, XP, 2003]
alien thing © (2006-02-06 06:37:00)Как программно остановить и запустить службу "Сервер" на локальной машине под windows ?
alien thing (2006-02-06 07:28:00) [1]все, кажется решил проблему
SERVICE_CONTROL_PAUSE / SERVICE_CONTROL_CONTINUE, все равно спасибо за ответ!
alien thing (2006-02-06 07:05:00) [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;
TUser (2006-02-06 06:55:00) [3]ControlService()
| |
