Exibir endereço de IP, mascara, gateway e dns
Caros amigos
Preciso que meu sistema leia e exiba pra mim no vídeo as configurações de IP, mascara, gateway e DNS's.
Teriamos algum componente pronto para isso ou alguem com alguma codificação pronta ?
abraços
Rogério
Curtidas 0
Respostas
Eriley Barbosa
12/08/2010
procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec(PChar('command.com /c ipconfig /all >c:\texto.txt'),SW_shownormal);
end; Todas as configurações de rede serão jogadas num arquivo chamado texto.txt em c:. Basta agora que você pegue este arquivo e adicione seu conteúdo a um memo por exemplo. Atenciosamente Eriley
begin
WinExec(PChar('command.com /c ipconfig /all >c:\texto.txt'),SW_shownormal);
end; Todas as configurações de rede serão jogadas num arquivo chamado texto.txt em c:. Basta agora que você pegue este arquivo e adicione seu conteúdo a um memo por exemplo. Atenciosamente Eriley
GOSTEI 0
Rogério
12/08/2010
Eriley,
Muito obrigado por sua atenção e conte comigo também no que precisar.
Forte abraço
Rogério T Martins
GOSTEI 0