Pesquisar na Comunidade
Showing results for tags 'porta com'.
Encontrado 1 registro
-
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;
