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