Obtener datos conexion internet

[Pally]

Me gustaria saber como obtener:

La puerta de enlace de la conexión y demas datos de la conexión

[Julià T.]

una forma sencilla, aunque no sé si es lo que pides es desde la línea de comandos teclear

ipconfig /all

[Pally]

si pero desde delphi?

[chutipascal]

Si los datos de conexión no están asignados en Tiempo de ejecución, puedes buscarlo en el registro. Para la puerta de enlace ->(DefaultGateway), por ejemplo yo tengo dentro de
[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0001] (0001=primer dispo. de red)

"DriverDesc"="TCP/IP"
"InfSection"="MSTCP.ndi"
"IPAddress"="192.168.100.23"
"IPMask"="255.255.255.0"
"DeviceVxDs"="vtdi.386,vip.386,vtcp.386,vdhcp.386,vnbt.386"
"InstallVnbt"="0"
"InfPath"="NETTRANS.INF"
"ProviderName"="Microsoft"
"DevLoader"="*ndis"
"DefaultGateway"="192.168.100.1"
"NodeType"="1"
"DriverDate"=" 5- 5-1999"

Para las DNS

[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\MSTCP]
"LMHostFile"="C:\\WINDOWS\\lmhosts"
"LocalCopyMade"="1"
"EnableDNS"="1"
"Lanabase"="0"
"HostName"="aguila"
"Domain"="obispado.com"
"SearchList"=""
"NameServer"="194.179.1.100,194.179.1.101,192.168.100.3"
"EnableRouting"="0"

Mirate como puedes leer el contenido del registro desde delphi y lo puedes sacar de aqui.

Otra solución los Api del windows, pero.........

un saludo.

[chutipascal]

Si lo quieres sacar del Api puedes sacarte una idea desde este enlace en VB
http://www.experts-exchange.com/Prog..._10166250.html

[BECERRA]

procedure TF_ip.FormCreate(Sender: TObject);
var
wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
begin
{Start up WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
{Get the computer name}
GetHostName(@s, 128);
p := GetHostByName(@s);
Memo1.Lines.Add(p^.h_Name);
{Get the IpAddress}
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
Memo1.Lines.Add(p2);

end;

P.D. Únicamente has de inluir en el form un Memo.