BOOL EnumServicesStatus(
  SC_HANDLE hSCManager,
  DWORD dwServiceType,
  DWORD dwServiceState,
  LPENUM_SERVICE_STATUS lpServices,
  DWORD cbBufSize,
  LPDWORD pcbBytesNeeded,
  LPDWORD lpServicesReturned,
  LPDWORD lpResumeHandle
);
 

 
DECLARE INTEGER EnumServicesStatus IN advapi32;
    INTEGER hSCManager,;
    LONG    dwServiceType,;
    LONG    dwServiceState,;
    INTEGER lpServices,;
    LONG    cbBufSize,;
    LONG  @ pcbBytesNeeded,;
    LONG  @ lpServicesReturned,;
    LONG  @ lpResumeHandle