Visual Basic - MANTENER SERV. ACTIVO

Hola:
Tengo que hacer un programa EN vb6 que verifique si cierto servicio esta Detenido o Iniciado , y si esta detenido iniciarlo , me imagino que debo ocupar una api de windows , pero no se cual ni como , si me pueden guiar estare agradecido.

Papelucho

Para verificar el estado de un servicio lo puedes con la función EnumServicesStatus, en http://www.mentalis.org/apilist/EnumServicesStatus.shtml tienes la documentación y un ejemplo.

Para iniciarlo revisa la función OpenSCManager, en http://www.mentalis.org/apilist/OpenSCManager.shtml tienes la documentación y un ejemplo.

Traduce un poquito:

EnumServicesStatus
The EnumServicesStatus function enumerates services in the specified service control manager database. The name and status of each service are provided.

BOOL EnumServicesStatus(
SC_HANDLE hSCManager, // handle to service control manager database
DWORD dwServiceType, // type of services to enumerate
DWORD dwServiceState, // state of services to enumerate
LPENUM_SERVICE_STATUS lpServices,
// pointer to service status buffer
DWORD cbBufSize, // size of service status buffer
LPDWORD pcbBytesNeeded, // pointer to variable for bytes needed
LPDWORD lpServicesReturned,
// pointer to variable for number returned
LPDWORD lpResumeHandle // pointer to variable for next entry
);

La Función API es esta:

Declare Function EnumServicesStatus Lib "advapi32.dll" Alias "EnumServicesStatusA" (ByVal hSCManager As Long, ByVal dwServiceType As Long, ByVal dwServiceState As Long, lpServices As ENUM_SERVICE_STATUS, ByVal cbBufSize As Long, pcbBytesNeeded As Long, lpServicesReturned As Long, lpResumeHandle As Long) As Long