consulta de ip

[friendspark]

Hola a todos, queria saber como podria acceder a todas las ips de todas las tarjetas de red que esten conectadas en un momento dado, ya que este codigo solo me devuelve una.Gracias.

Código Delphi [-]
 
WSAStartup($0101, DatosSocket); // Inicializamos Windows sockets
SetLength(Nombre, MAX_PATH); // y obtenemos el nombre de nuestro equipo
gethostname(PChar(Nombre), MAX_PATH);
// que usamos para obtener un bloque de información sobre IP
BloqueIP := gethostbyname(PChar(Nombre));
// del cual recuperamos la dirección
 
CopyMemory(@DirIP, (BloqueIP^).h_addr_list^, BloqueIP.h_length);
 
normalt.Add('Direccion IP...............(' + inet_ntoa(DirIP) + ')');

[OSKR]

Hhhmmmmmmmmm.... no entiendo muy bien lo de "todas las ips de todas las tarjetas de red que esten conectadas" pero supongo q lo q qieres es saber los IP's de la LAN en donde está tu pote, entonces mira:
http://www.clubdelphi.com/foros/showthread.php?t=26737