Programa para ver IP

1ª Abra o Delphi 7 ou 6

2ªAdicione:
1 Edit
2 Button  ou BitBtn
1 IdIPWatch1 (Na aba Indy Misc)

3ª Configuere da seguinte forma
edit 1 :
Text : Seu IP
BitBtn1 ou Button1 :
Caption :Ver Agora
BitBtn2 ou BitBtn2 :
Caption : cancelar
IdIPWatch1:
Name : IP 

4ª clique duas vees no BitBtn 1 (Bota que ta escrito Ver Agora) coloque este pequeno comando
 procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Edit1.Text := IP.LocalIP; \\ Para mostrar seu IP
end;

end.
  

5ª No BitBtn 2 (Botao que ta escrito Cancelar) Coloque este comando
 procedure TForm1.BitBtn2Click(Sender: TObject);
begin;
Halt ; \\ Ou vc pode colocar Form1.Close;

end;

end.

6ª Agora e Compilar e ser Feliz hehehe (Veja se quando vc conpilo e clico em Ver agora apareceu o IP ).

veja quando vc clico mostro seu IP

 vlw pessoal ate a proxima qualquer duvida me add no msn Dhionathans_felix@hotmail.com