| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как со своего приложениея упралять сервисов под w2k [D6, Win2k]

Miron12 ©   (2002-03-27 13:01:00) 

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

---

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

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

---

BugMaker   (2002-03-27 13:16:00) [2]

//Здесь мы пытаемся запустить сервис
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;

---

Наверх