# Pastebin AqEHgN3Z
proc SetupDiGetClassDevs(ClassGuid: ptr GUID, Enumerator: ptr cstring, hwndParent: HANDLE, Flags: DWORD): HDEVINFO
    {.stdcall, importc: "SetupDiGetClassDevs", dynlib: "setupapi.dll".}
    
var
    enumerator: cstring = nil
    hwndParent: HANDLE = nil
    GUID_DEVINTERFACE_COMPORT : GUID = GUID(D1: 0x86e0d1e0'i32, D2: 0x8089'i16, D3: 0x11d0, D4: [
      0x9c'i8, 0xe4'i8, 0x08'i8, 0x00'i8, 0x3e'i8, 0x30'i8, 0x1f'i8, 0x73'i8])

let devInfoSet = SetupDiGetClassDevs(addr GUID_DEVINTERFACE_COMPORT, addr enumerator, hwndParent, 0)
if devInfoSet == -1:
    raiseOsError(osLastError())