Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c