| Вопрос: Работа со службами в nt | Добавлено: 19.05.06 02:02 |
Автор вопроса:  Padre | Web-сайт: localhost | ICQ: 346632205 |
|
1. как запустить/остановить службу windows
2. как узнать о её текущем состоянии (запущена/остановлена) Вариант такого плана работает, но не позволяет отслеживать состояние службы: Private Sub RunService(strService As String, booStart As Boolean)
'strService - имя запускаемой службы 'booStart - если равно True, то служба запустится _ если False, то пытаемся остановить службу Dim cnt As Long If booStart Then Shell "net start " & Chr$(34) & strService & Chr$(34) Else Shell "net stop " & Chr$(34) & strService & Chr$(34) End If End Sub Private Sub Command1_Click() RunService "Удаленный реестр", False End Sub |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  HOOLIGAN Вопросов: 0 Ответов: 1066 |
Профиль | | #1 | Добавлено: 19.05.06 03:14 |
|
Эти апи-функции позволяют полностью управлять сервисом:
OpenSCManager CreateService StartService ControlService QueryServiceStatus CloseServiceHandle |
||
Страница: 1 |