Текущий архив: 2006.02.19;
Скачать: 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 вся ветка
Текущий архив: 2006.02.19;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.064 c
