Nome do dispositivo conectado na COM

[LucasABC]

Olá, estou trabalhando em um projeto onde estou utilizando o componente ACBRsms.

O componente esta funcionando perfeitamente, porem, estou com um problema que ainda não consegui sanar.

Para realizar a conexão com o modem, utilizo um "Combobox" que é carregado com todas as portas COM que estão em uso na maquina, mas, possuo diversos dispositivos conectados nesta maquina, cheguei a ter em certo momento, 6 portas COM disponíveis para selecionar, mas não sabia qual delas era o bendito modem.

Estou a procura de uma maneira de poder listar os dispositivos conectados NOME.

Alguém teria uma ideia?

A maneira q utilizo para buscar as portas COM é:

 

procedure AcharPortasSeriais(const AStringList : TStrings);
var
  Registro: TRegistry;  //Para trabalhar com os Registros do windows.
  Lista: Tstrings;
  indice: Integer;      //Para incrementar.
begin
  AStringList.Clear;
  Registro := TRegistry.Create; //Cria e aloca espaço na memória para o objeto.
  try
    Registro.RootKey := HKEY_LOCAL_MACHINE;  //Define chave raiz.
    Registro.OpenKey('hardware\devicemap\serialcomm', False); //Abre a chave.
    Lista := TstringList.Create;
    try
      //Obtém uma string contendo todos os nomes de valores associados com a chave atual.
      Registro.GetValueNames(Lista);
      //Pega nos nomes das portas.
      for indice := 0 to Lista.Count - 1 do //Count é a quantidade de portas existentes.
        AStringList.Add(Registro.ReadString( Lista.Strings[indice] ));

    finally
      Lista.Free;
    end;
    Registro.CloseKey;
  finally
    Registro.Free;
  end;
end;

 

[LucasABC]

Alguem?

Editado 31 Julho, 2015 por LucasABC

[Daniel Simoes]

Observe que o ACBrDevice possui um método para trazer as portas seriais:

Ex:

ACBrECF1.Device.AcharPortasSeriais( cbxPorta.Items )

A unica maneira de saber se ele é ou não um modem... é tentando a comunicação, e vendo se há resposta... mas isso pode causar uma demora na sua aplicação...