salut
ce sujet est déjà posé mainte fois, l'une d'eux est:
http://www.developpez.net/forums/showthread.php?t=29073
mais la solution prposé par sub0 a besoin d'un script php sur un serveur
et en plus c'est un peut leng,,non??
j'ai touvé sa en VB:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Dim IP As String
'Jérémie Mineault Forget
'Gestion IP
 
Private Sub Form_Load()
IP = FrmGestionIp.Inet.OpenURL("http://testip.free.fr/ip.php")
If IP = "" Then IP = "Vous n'êtes pas connecté"
EtiIpInternet = IP
End Sub
quelqu'un peut le convertir en delphi, merci,