Abra seu Delphi e crie uma nova Aplicação
Agora adicione 2 Buttons e troquem o Caption dos Buttons para:
Renovar ip
Registrar DNS
Dps de feito isso, dê 2 clicks no Button Renovar IP
Adicione esse código:
WinExec('cmd /C ipconfig /renew',SW_SHOW);
WinExec('cmd /C ipconfig /release',SW_SHOW);
Dps dê 2 clicks no Button Registrar DNS
Adicione esse código:
WinExec('cmd /C ipconfig /registerdns',SW_SHOW);
[font=Comic Sans MS]Agora só Compilar no
F9 dps salvar o Projeto
Creditos:
RafaH
Fonte:
Google
