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

работа со службой   Найти похожие ветки 

← →
Bolek ©   (2005-12-03 20:23) [0]

доброго времени суток
есть ряд вопросов:
1. как определить есть ли служба на машине (независимо от её статуса)?
2. как её запустить/остановить?

ессно, всё программно.

---

← →
kami ©   (2005-12-04 00:39) [1]

OpenSCManager=>OpenService{определение наличия службы+ее открытие} =>ControlService

---

← →
Bolek ©   (2005-12-04 15:46) [2]

> kami ©   (04.12.05 00:39) [1]
> OpenSCManager=>OpenService{определение наличия службы+ее
> открытие} =>ControlService

не сомневаюсь в наличии ЧЮ, НО было написано ессно, всё программно

---

← →
kami ©   (2005-12-04 16:10) [3]

не понял?

---

← →
gdaujk ©   (2005-12-04 16:20) [4]

Bolek ©   (04.12.05 15:46) [2]

Это и есть програмно.

---

← →
palva ©   (2005-12-04 16:22) [5]


{$APPTYPE CONSOLE}
uses
 WinSvc;
var
 s: String;
 par: PChar;
 smh, sh: SC_HANDLE;
begin
 s := "par";
 par := @s[1];
 smh := OpenSCManager("\\PALVA", Nil, SC_MANAGER_ALL_ACCESS);
 sh := OpenService(smh, "MySQL5", SERVICE_START);
 if sh <> 0 then StartService(sh, 1, par);
 Writeln("End");
end.


---

← →
Bolek ©   (2005-12-04 16:34) [6]

[1]

> не сомневаюсь в наличии ЧЮ, НО было написано ессно, всё
> программно

сорри, затупил чего-то... :-[
[5] спасибо за код

---

← →
palva ©   (2005-12-05 14:35) [7]

> спасибо за код
Код, кстати, неправильный, извиняюсь за это. Передача параметров оформлена неправильно. Правда, при запуске службы параметров обычно не бывает...

---

← →
Bolek ©   (2005-12-06 21:07) [8]

> Код, кстати, неправильный, извиняюсь за это. Передача параметров
> оформлена неправильно. Правда, при запуске службы параметров
> обычно не бывает...

попробывал - робит
дальше сам поправлю если на исключение нарвусь
но концепт уловил
так что всё ок

---

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

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



Память: 0.46 MB
Время: 0.097 c