Hola Jose, a ver si te sirve esto: WSADATA wsaData;
hostent *p;
char s[128];
// Inicia winsock
WSAStartup(0x0101, &wsaData);
// Obtiene el nombre de la maquina
gethostname(s, 128);
p = gethostbyname(s);
ShowMessage((String) "Nombre de la maquina: " + p->h_name);
// Obtiene las direcciones IP
// por ejemplo si estamos conectados a Internet
// nos devolvera la de la red local y la de Internet
for (int i=0; p->h_addr_list[i]; i++)
{
String sIP = inet_ntoa(*((in_addr *)p->h_addr_list[i]));
ShowMessage((String) "IP" + i + ": " + sIP);
}
// Cierra winsock
WSACleanup();
Saludos.