Как остановить (запустить) службу?

← →
Chery (2004-12-08 14:50) [0]

Сервер MySQL работает как служба, в my.ini есть запись:
Server=C:/mysql/bin/mysqld-nt.exe
Тоесть я знаю путь к стартовому файлу.
Как остановить (запустить) эту службу?

← →
VMcL © (2004-12-08 15:29) [1]

>>Chery (08.12.04 14:50)

>Тоесть я знаю путь к стартовому файлу.

Намного больше пользы будет от имени службы. См. Пуск | Программы | Администрирование | Службы

>Как остановить (запустить) эту службу?

Административно посредством вышеуказанной консоли управления или с помощью команды "net start"/"net stop".

Программно: StartService(), ControlService(..., SERVICE_CONTROL_STOP, ...)

← →
VMcL © (2004-12-08 15:31) [2]

← →
Chery (2004-12-08 16:45) [3]

имя MySQL.
Какие параметры должны быть в StartService()и ControlService()?

← →
VMcL © (2004-12-08 18:15) [4]

>>Chery (08.12.04 16:45) [3]

Справочные файлы враги украли?

← →
Chery (2004-12-08 18:56) [5]

ладно, уже смотрю.

← →
GanibalLector © (2004-12-09 01:38) [6]

procedure TForm1.Button4Click(Sender: TObject);
var
shell:OleVariant;
begin
shell:=CreateOleObject("Shell.Application");
shell.ServiceStop("SmcService",false);
end;

procedure TForm1.Button5Click(Sender: TObject);
var shell:OleVariant;
begin
shell:=CreateOleObject("Shell.Application");
shell.ServiceStart("SmcService",true);
end;

только SmcService замени на свое

← →
GanibalLector © (2004-12-09 01:39) [7]

или так :
var aa:cardinal;ess:TEnumServiceStatus; begin aa:=OpenService(OpenSCManager(nil,nil, SC_MANAGER_ALL_ACCESS),"SmcService",SERVICE_ALL_ACCESS); ControlService(aa,SERVICE_CONTROL_STOP,ess.ServiceStatus);

← →
Chery (2004-12-09 11:24) [8]

Спасибо. Первый работает. Но я так понимаю, второй лучше. А на втором варианте, у меня выдает, что не объявлен TEnumServiceStatus. В юсис ShellApi есть, что еще надо подключить?

← →
VMcL © (2004-12-09 12:39) [9]

>>GanibalLector © (09.12.04 01:39) [7]

1. Хендл Service Control Manager"а г-н Пушкин будет закрывать?
2. SC_MANAGER_ALL_ACCESS: не следует требовать больше прав, чем необходимо.

← →
GanibalLector © (2004-12-09 13:11) [10]

2 Chery
uses comobj,winsvc;//для [6] и [7] соответственно
2 VMcL
1)CloseServiceHandle(aa);// ага,забыл
2)а как надо?

← →
Chery (2004-12-09 13:46) [11]

Пасиб

>>VMcL © (09.12.04 12:39) [9]

>1. Хендл Service Control Manager"а и г-н Пушкин будет закрывать?

1. Хендлы Service Control Manager"а и самого сервиса г-н Пушкин будет закрывать?

>>GanibalLector © (09.12.04 13:11) [10]

>1)CloseServiceHandle(aa);// ага,забыл

И не только "aa".

>2)а как надо?

Требовать минимально необходимые права доступа. Это относится к вызову не только OpenSCManager(), но и OpenService().

А ШО еще?Это :
OpenSCManager(nil,nil, SC_MANAGER_ALL_ACCESS)

← →
Brun (2005-01-21 18:10) [15]

net start {имя службы}
net stop {имя службы}

Как пользоватся ShellExecute думаю знаэш.. :-)

← →
Brun (2005-01-21 18:11) [16]

net start {имя службы}
net stop {имя службы}

Как пользоватся ShellExecute думаю знаэш.. :-)

Как остановить (запустить) службу? Найти похожие ветки