(Resolvido) Listar nome dos adaptadores de Rede

[robinhocne]

Boa tarde,

 

  Criei um processo para alterar o IP do computador sem precisar reiniciar, porém nesse metodo tenho que passar o nome do adaptador de rede que infelizmente dependendo do SO e do adaptador isso muda, por exemplo XP "Conexão Local", W8 "Ethernet" e W10 "Rede", então qual minha ideia.... é pegar o nome desse adaptador, porém não achei como fazer....

[Jhonas]

exemplos

https://www.google.com.br/?gws_rd=ssl#q=nome+do+adaptador+de+rede+delphi

abraço

[robinhocne]

já tentei esses ai Jhonas, todos que pesquisei não tive sucesso....

[Jhonas]

voce só quer a lista dos adaptadores instalados na maquina ?

 

[robinhocne]

Sim, os nomes.....

[Jhonas]

veja esse exemplo:

http://www.planetadelphi.com.br/dica/5881/lista-o-numero-ip-e-nome-do-micro-na-rede

ou

https://www.google.com.br/?gws_rd=ssl#q=if+WNetOpenEnum(RESOURCE_GLOBALNET,+RESOURCETYPE_ANY,+0,+Res,+Hnd)+%3D+No_ERROR+then

ou

https://www.mail-archive.com/delphi@elists.org/msg00605.html

abraço

[robinhocne]

Jhonas, mas esses exemplos lista o IP e nome do computador, não do adaptador de Rede

[Jhonas]

é esse nome que voce quer pegar ?

 

Veja se esse código te ajuda

olhe no final do código o resultado

http://blog.atlabs.com.br/2014/07/delphi-ipconfig-via-programacao.html

Se preferir algo bem mais simples

procedure TForm1.Button1Click(Sender: TObject);
begin
   winexec('cmd /c ipconfig /all > c:\rede.txt',SW_HIDE);
   sleep(2000);
   Memo1.Lines.LoadFromFile('c:\rede.txt');
end;

abraço

[robinhocne]

Não Jhonas....são esses

 

 

1ª Imagem é do Windows 8, 2ª Imagem é do Windows 10 e 3ª Imagem é do XP.

[Jhonas]

o exemplo que te passei funciona no XP ..no windows 7 e no 10 não testei

Configuração de IP do Windows
        Nome do host . . . . . . . . . . . : MeuComputador
        Sufixo DNS primário. . . . . . . . : 
        Tipo de nó . . . . . . . . . . . . : desconhecido
        Roteamento de IP ativado . . . . . : não
        Proxy WINS ativado . . . . . . . . : não

Adaptador Ethernet Conexão local:
        Sufixo DNS específico de conexão  . : 
        Descrição . . . . . . . . . . . . . : Realtek RTL8139 Family PCI Fast Ethernet NIC
        Endereço físico . . . . . . . . . . : D7-5A-56-B6-EE-AA
        DHCP ativado. . . . . . . . . . . . : Sim
        Configuração automática ativada . . : Sim
        Endereço IP . . . . . . . . . . . . : 192.168.1.103
        Máscara de sub-rede . . . . . . . . : 255.255.255.0
        Gateway padrão. . . . . . . . . . . : 192.168.1.1
        Servidor DHCP . . . . . . . . . . . : 192.168.1.1
        Servidores DNS. . . . . . . . . . . : 192.168.1.1
        Concessão obtida. . . . . . . . . . : quinta-feira, 13 de julho de 2017 22:13:03
        Concessão expira. . . . . . . . . . : sexta-feira, 14 de julho de 2017 00:13:03

Adaptador Ethernet Conexão local 2:
        Estado da mídia . . . . . . . . . . . : mídia desconectada
        Descrição . . . . . . . . . . . . . : VIA Compatable Fast Ethernet Adapter
        Endereço físico . . . . . . . . . . : 00-40-55-00-67-A1

Abraço

[robinhocne]

Jhonas, testei aqui em ambos windows e infelizmente não deu certo, ele não traz os nomes do Adaptador, vou mudar a tática, vou verificar qual S.O. tem instalado no PC e vou passar o nome da rede para verificar....

 

 

Editado Julho 17, 2017 por robinhocne

[Jhonas]

Solução em outro tópico