Fórum Como faço para configurar uma Placa de Rede do WinXP? #322045

24/05/2006

0

Amigos,
preciso criar um programa para configurar uma placa de rede no windows XP e não sei nem por onde começar.
preciso alterar:
IP
Mascara de Sub-Rede
Gateway
DNS Primário
DNS Secundário



Orlando Frade

Orlando Frade

Responder

Posts

24/05/2006

Adriano Santos

Comece por aqui:

[color=darkblue:c62143bd00][b:c62143bd00]849 - Mudando o Ip da Máquina Via Api do Windows[/b:c62143bd00] [/color:c62143bd00]

--------------------------------------------------------------------------------

Como posso mudar meu IP? via API?A resposta para essa pergunta é não neste artigo estou unsando o Delphi 7, mas pode ser feito com qualquer outra versão do delphi. nos Windows 2000 e XPexiste um aplicativo chamado NETSH que faz essa mudança para nós sem queprecisemos reiniciar o computador. bem vamos por a mão na massa e brincarmos umpouco com as configurações de IP.Mudando a Configuração para DHCP:Crie uma aplicação no Delphi, NEW -> Application no FormDesigner ponha umTButton e no evento OnClick escreva o seguinte código:


if Win32Plataform = VER_PLATAFORM_WIN32_NT then
  WinExec(´cmd /c netsh interface ip set address"Conexão local" DHCP´, SW_SHOWNORMAL)
else
  MessageBox(Handle, ´esse Comando não pode ser rodado fora da plataforma NT´, ´NETSH´, MB_ICONWARNING);



onde verifico se a plataforma do Programa é uma plataforma NT, caso contrárioinformo ao usuário que esse comando não pode ser rodado fora de uma plataforma NT.Mudando as Configurações dos IPs da máquina,menos os DNS:Na mesma aplicação do exemplo acima Ponha outro TButton e no Evento OnClick dele escreva:


if Win32Plataform = VER_PLATAFORM_WIN32_NT then
  WinExec(´cmd /cnetsh interface ip set address "Conexão local" static 192.168.10.104255.255.255.0 192.168.10.1 1´, SW_SHOWNORMAL)
else
  MessageBox(Handle, ´esse{Comando não pode ser rodado fora da plataforma NT´, ´NETSH´, MB_ICONWARNING);



Pronto seu IP, SubnetMask e Gateway foram mudados. Para maiores informações sobre o NETSH visite o site da Microsoft: Suporte Microsoft.[color=olive:c62143bd00][/color:c62143bd00]

[color=red:c62143bd00]Esta dica está no arquivo DtDelphi7.chm. Não testei nada, mas acredito que funcione.[/color:c62143bd00]


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar