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

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

работа со службой [D7, Win2k, WinXP]

Bolek ©   (2005-12-03 20:23:00) 

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

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

---

Bolek   (2005-12-06 21:07:00) [1]

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

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

---

palva   (2005-12-05 14:35:00) [2]

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

---

Bolek   (2005-12-04 16:34:00) [3]

[1]

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

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

---

palva   (2005-12-04 16:22:00) [4]


{$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.


---

gdaujk   (2005-12-04 16:20:00) [5]

Bolek ©   (04.12.05 15:46) [2]

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

---

kami   (2005-12-04 16:10:00) [6]

не понял?

---

Bolek   (2005-12-04 15:46:00) [7]

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

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

---

kami   (2005-12-04 00:39:00) [8]

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

---

Наверх