Untitled

import winim/lean

proc main =
    let hSCManager = OpenSCManagerW(
        nil,
        nil,
        SC_MANAGER_ALL_ACCESS
        )

    var
        dwServiceType: DWORD = SERVICE_WIN32
        dwServiceState: DWORD = SERVICE_STATE_ALL
        lpServices:  ptr ENUM_SERVICE_STATUS
        cbBufSize: DWORD
        pcbBytesNeeded: DWORD
        lpServicesReturned: DWORD
        resumeHandle: DWORD

    let retVal = EnumServicesStatus(
    hSCManager,
    dwServiceType,
    dwServiceState,
    lpServices,
    cbBufSize,
    cast [ptr DWORD](pcbBytesNeeded),
    cast [ptr DWORD](lpServicesReturned),
    cast [ptr DWORD](resumeHandle)
    )

    let err = GetLastError()

    if retVal == FALSE or err == ERROR_MORE_DATA:
        var dwBytes: DWORD = cbBufSize + int32(sizeof(ENUM_SERVICE_STATUS))
        let lpServices = newSeq[ENUM_SERVICE_STATUS](dwBytes)
        EnumServicesStatus(
        hSCManager,
        dwServiceType,
        dwServiceState,
        cast [ptr ENUM_SERVICE_STATUS](lpServices),
        dwBytes,
        cast [ptr DWORD](pcbBytesNeeded),
        cast [ptr DWORD](lpServicesReturned),
        cast [ptr DWORD](resumeHandle)
        )

    for i in 0..<lpServicesReturned:
    #   echo lpservices[i].lpDisplayName 
    
    CloseServiceHandle(hSCManager)

when isMainModule:
    main()