#include <winsock2.h> 

AnsiString out = "WinSock ERR"; 
WSADATA wsaData;  
if (! WSAStartup (WINSOCK_VERSION, &wsaData)) {char chInfo [64]; 
if (! gethostname (chInfo, sizeof (chInfo))) 
{ 
hostent *sh; 
sh=gethostbyname ((char *) &chInfo); 
if (sh! =NULL) 
{ 
int nAdapter = 0; 
while (sh-> h_addr_list [nAdapter]) 
{ 
struct sockaddr_in adr; 
memcpy (&adr.sin_addr, sh-> h_addr_list [nAdapter], sh-> h_length); 
out = inet_ntoa (adr.sin_addr); 
nAdapter ++; 
}
}
}
}
WSACleanup (); 
ShowMessage (out);