Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];

Вниз

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

 
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]

>>VMcL ©  (08.12.04 15:29) [1]

>См. Пуск | Программы | Администрирование | Службы

Или Панель управление | Администрирование | Службы.


 
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 ©   (2004-12-10 10:06) [12]

>>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().


 
GanibalLector ©   (2004-12-10 10:29) [13]

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


 
GanibalLector ©   (2004-12-10 10:41) [14]

2 GanibalLector ©    [13]
А,понял.Пардон.


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

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

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


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

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

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



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

Форум: "WinAPI";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.067 c
1-1108824147
Ji
2005-02-19 17:42
2005.03.06
Попытка чтения динамического массива из файла приводит к ошибке.


3-1107159992
YK
2005-01-31 11:26
2005.03.06
как узнать ID только что добавленной записе в InterBase


14-1108455916
Hawk2
2005-02-15 11:25
2005.03.06
ТВ-Тюнеры


4-1106293891
AlexandrK
2005-01-21 10:51
2005.03.06
Как показать на панели задач ВСЕ ОКНА приложения


1-1109223246
vlgrig1961
2005-02-24 08:34
2005.03.06
Как добавить свою прогу в список ОТПРАВИТЬ...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский