Declare Function ControlService Lib "advapi32.dll" ( _ ByVal hService As Long, _ ByVal dwControl As Long, _ lpServiceStatus As SERVICE_STATUS) As Long
ControlService посылает управляемый код службе.
В случае успеха, функция возвращает ненулевое значение. В случае ошибки функция возвращает 0. Для получения более подробной информации об ошибке используйте функцию GetLastError. Вот некоторые коды ошибок.
ERROR_ACCESS_DENIED | Указанный описатель не имеет права доступа |
ERROR_INVALID_HANDLE | Указанный описатель не существует |
SERVICE_CONTROL_CONTINUE | Уведомляет приостановленную службу о возобновлении работы. Описатель hService должен иметь право доступа SERVICE_PAUSE_CONTINUE |
SERVICE_CONTROL_INTERROGATE | Уведомляет службу, что она должна сообщить о своем текущем состоянии менеджеру управления службамиN. Дескриптор hService должен иметь право доступа SERVICE_INTERROGATE |
SERVICE_CONTROL_NETBINDADD | Notifies a network service that there is a new component for binding. Дескриптор hService должен иметь право доступа SERVICE_PAUSE_CONTINUE |
SERVICE_CONTROL_NETBINDDISABLE | Notifies a network service that one of its bindings has been disabled. Дескриптор hService должен иметь право доступа SERVICE_PAUSE_CONTINUE |
SERVICE_CONTROL_NETBINDENABLE | Notifies a network service that a disabled binding has been enabled. Дескриптор hService должен иметь право доступа SERVICE_PAUSE_CONTINUE |
SERVICE_CONTROL_NETBINDREMOVE | Notifies a network service that that a component for binding has been removed. Дескриптор hService должен иметь право доступа SERVICE_PAUSE_CONTINUE |
SERVICE_CONTROL_PARAMCHANGE | Notifies a service that its startup parameters have changed. Дескриптор hService должен иметь право доступа SERVICE_PAUSE_CONTINUE |
SERVICE_CONTROL_PAUSE | Notifies a service that it should pause. Дескриптор hService должен иметь право доступа SERVICE_PAUSE_CONTINUE |
SERVICE_CONTROL_STOP | Notifies a service that it should stop. Дескриптор hService должен иметь право доступа SERVICE_STOP |
Смотри пример ServicesStopPauseStart.zip
CreateService, OpenService, QueryServiceStatus, SetServiceStatus
Двухконтурные газовые котлы смотрите на www.baltgaz.com .