Declare Function OpenService Lib "advapi32.dll" Alias "OpenServiceA" ( _ ByVal hSCManager As Long, _ ByVal lpServiceName As String, _ ByVal dwDesiredAccess As Long) As Long
В случае успеха, функция возвращает дескриптор службы. Использовать дескриптор может только тот процесс, который вызвал функцию OpenService. Закрыть его можно при помощи функции CloseServiceHandle. В случае ошибки функция вернёт NULL. Для получения более подробной информации об ошибке используйте функцию GetLastError. Вот некоторые коды ошибок
ERROR_ACCESS_DENIED | Доступ с указанными правами запрещён. |
ERROR_INVALID_HANDLE | Указанный дескриптор не существует. |
ERROR_INVALID_NAME | Указанное имя службы не существует |
ERROR_SERVICE_DOES_NOT_EXIST | Указанная служба не существует |
смотри пример ServicesStopPauseStart.zip