| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Управление сервисами в Delphi [D5, Win2k, WinXP]
Jorchick © (2002-07-03 17:46:00)Народ, подскажите, пожалуйста, как управлять сервисами из Delphi.
Например, мне нужно остановить службу "Messenger", а потом запустить.
ZZ (2002-07-04 04:43:00) [1]
uses WinSvc,Windows;
var
hSCM,hService:THandle;
SStatus : _SERVICE_STATUS;
hSCM:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
hService := OpenService(hSCM, "Messanger",SERVICE_ALL_ACCESS);
StartService(hService,0,nil);
...
ControlService(hService,SERVICE_CONTROL_STOP,SStatus );
Примерно так (с правами конечно перебор :) Можно было и поменьше )
Jorchick (2002-07-04 02:17:00) [2]Спасибо за ответ.
Но мне нужно немного другое. В тексте говорится все об управлении службами из-под C/C++. А мне нужно из-под Delphi.
ZZ (2002-07-03 17:53:00) [3]http://rsdn.ru/article/?baseserv/svcadmin-2.xml
| |
