import winim/lean,strformat
proc main =
let hSCManager = OpenSCManagerW(
nil,
nil,
SC_MANAGER_ENUMERATE_SERVICE
)
let errSCManager = GetLastError()
echo fmt"OpenSCManager err: {errSCManager}"
var
dwServiceType: DWORD = SERVICE_WIN32
dwServiceState: DWORD = SERVICE_STATE_ALL
cbBufSize: DWORD = 43453
lpServices = addr cbBufSize
pcbBytesNeeded: DWORD
lpServicesReturned: DWORD
resumeHandle: DWORD
let retVal = EnumServicesStatusW(
hSCManager,
dwServiceType,
dwServiceState,
cast [LPENUM_SERVICE_STATUSW](&lpServices),
cbBufSize,
cast [ptr DWORD](&pcbBytesNeeded),
cast [ptr DWORD](&lpServicesReturned),
cast [ptr DWORD](&resumeHandle)
)
let errEnumServicesStatus = GetLastError()
echo fmt"EnumServicesStatus: {errEnumServicesStatus} {pcbBytesNeeded}"
if retVal == FALSE or errEnumServicesStatus == ERROR_MORE_DATA:
var dwBytes: DWORD = cbBufSize + int32(sizeof(ENUM_SERVICE_STATUS))
# ???????
# var lpServices = newSeq[ENUM_SERVICE_STATUS](dwBytes)
EnumServicesStatusW(
hSCManager,
dwServiceType,
dwServiceState,
cast [LPENUM_SERVICE_STATUSW](&lpServices),
cbBufSize,
cast [LPDWORD](&pcbBytesNeeded),
cast [LPDWORD](&lpServicesReturned),
cast [LPDWORD](&resumeHandle)
)
# ?????
# for i in 0..<cast[DWORD](lpServicesReturned):
# echo lpServices[i].lpDisplayName
when isMainModule:
main()
