работа со службой

← →
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.

[1]

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

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

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

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

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

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