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;