Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.24;
Скачать: CL | DM;

Вниз

как со своего приложениея упралять сервисов под w2k   Найти похожие ветки 

 
Miron12   (2002-03-27 13:01) [0]

Здраствуйте! пожалуйста дайте кусок кода на Дельфи желательно!
с помощью которого можно запускать, останавливать сервис.
по возможности с пояснением!
Заранее спасибо!


 
BugMaker ©   (2002-03-27 13:16) [1]

//Здесь мы пытаемся запустить сервис
procedure TForm1.Button1Click(Sender: TObject);
var p:PChar;
sManager:Cardinal;
sService:Cardinal;
begin
//Получаем Handle на менеджер сервисов
SManager:=OpenSCManager(
nil,
nil,
SC_MANAGER_ALL_ACCESS);

//Получаем Handle на наш сервис
sService:=OpenService(
SManager,
PChar("Service1"), //Здесь имя сервиса
SERVICE_ALL_ACCESS);

If SService=0 then begin
{Не найден сервис с таким именем}
CloseServiceHandle(sManager);
MessageDlg("Сервис не установлен!",mtError,[mbOk],0);
Exit;
end;

P:=nil;
//А теперь пытаемся запустить сервис
if not StartService(
sService,
0,
p) then begin
MessageDlg("Не удается запустить сервис!",mtError,[mbOk],0);
end;

//Освобождаем Handle для менеджера и для сервиса
CloseServiceHandle(sService);
CloseServiceHandle(sManager);
end;
end;

//А здесь- остановить сервис
procedure TForm1.Button2Click(Sender: TObject);
var p:_SERVICE_STATUS;
sManager:Cardinal;
sService:Cardinal;
begin
//Получаем Handle на менеджер сервисов
SManager:=OpenSCManager(
nil,
nil,
SC_MANAGER_ALL_ACCESS);

//Получаем Handle на наш сервис
sService:=OpenService(
SManager,
PChar("Service1"), //Здесь имя сервиса
SERVICE_ALL_ACCESS);

If SService=0 then begin
{Не найден сервис с таким именем}
CloseServiceHandle(sManager);
MessageDlg("Сервис не установлен!",mtError,[mbOk],0);
Exit;
end;

//А теперь останавливаем сервис
if not ControlService(
sService,
SERVICE_CONTROL_STOP,
p);
then begin
MessageDlg("Сервис не удалось остановить!",mtError,[mbOk],0);
end;

CloseServiceHandle(sService);
CloseServiceHandle(sManager);
end;


 
Miron12   (2002-03-27 13:55) [2]

спасибо BugMaker :)) работает чики!
для остальных кому нужно будет, функции для работы с сервисов находятся в файле winsvc.pas





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

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

Наверх




Память: 0.47 MB
Время: 0.012 c
1-77340
Новеньки в Делфи
2002-06-12 20:22
2002.06.24
какой alt ctrl shift нажат, левый или правый?


4-77675
Zeden
2002-04-25 23:44
2002.06.24
Присвоить OnTimer у свой обработчик.


7-77636
Ruslan
2002-03-11 16:01
2002.06.24
Работа с com-портом


3-77324
kay
2002-06-01 02:24
2002.06.24
Поиск


3-77252
dr_neo
2002-05-29 21:38
2002.06.24
TADOTable