(Resolvido) Alterar IP

[robinhocne]

Como faço para alterar o ip do pc ?

[Jhonas]

veja se é isso que esta querendo

https://support.microsoft.com/pt-br/help/15089/windows-change-tcp-ip-settings

abraço

 

 

[robinhocne]

Bom dia,

sim, mas queria pelo delphi, para que não precisamos abrir as configurações para alterar.

[Jhonas]

tem varios exemplos na net ... veja qual se encaixa melhor para voce

https://www.google.com.br/?gws_rd=ssl#q=alterar+ip+via+delphi

abraço

[robinhocne]

tentei, mas não funcionou...por exemplo esse;

 

  if Win32Platform = VER_PLATFORM_WIN32_NT then
    begin
      comando := 'cmd /cnetsh interface ip set address "Conexão local" static '+txIp.Text+' 255.255.254.0 10.11.1.1 1';

      WinExec(PChar(comando), SW_SHOWNORMAL)
    end
    else
    begin
      MessageBox(Handle, 'esse Comando não pode ser rodado fora da plataforma NT', 'NETSH', MB_ICONWARNING);
    end;

 

[Jhonas]

tente assim:

procedure TForm1.Button1Click(Sender: TObject);
begin
    WinExec('cmd /c netsh interface ip set address "Conexão local" static 192.168.10.104 '+
            '255.255.255.0 192.168.10.1 1', SW_SHOWNORMAL);
end;

outro exemplo:

http://www.devmedia.com.br/dicas-mudando-o-ip-em-run-time/978

exemplo no forum

 

 

abraço

[robinhocne]

show consegui Jhonas era erro meu aqui