API函数得到本机的IP

struct hostent * thisHost
struct in _ addr in；
char my name[80]；
char *IP，* ptr
if(gethostname (MyName，80)==SOCKET_ERROR)
返回NULL
如果(！(this host = gethostbyname(my name))
返回NULL
memset((void *)&in，sizeof(in)，0)；
in . s _ addr = *((unsigned long *)this host-> h _ addr _ list[0])；
如果(！(ptr = inet_ntoa(in)))
返回NULL
IP = new char[strlen(ptr)+1]，
strcpy(IP，ptr)；
返回IP；考试(www。Examda)。Com)
考试提示:是在vc下编译的，这两个函数都是api函数，所以delphi应该也可以。