[[escafandra]]

int EnumSerialPorts(TStrings* Ports)
{
  int Count = 0;
  char port[20];
  COMMCONFIG cc;
  for(int i=1; i<256; i++){
    wsprintf(port, "COM%d", i);
    DWORD dwSize = sizeof(COMMCONFIG);
    if(GetDefaultCommConfig(port, &cc, &dwSize)){
       Count++;
       if(Ports) Ports->Append(port);
    }
  }
  return Count;
}

Saludos.