5、获取计算机中的IP地址
如果您是一位系统管理员的话，可能要经常查看各个计算机的IP地址信息，按照一般的方法来查看比较繁琐，于是我们可以使用下面的代码来实现自动获取IP地址的功能：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
hostent *p；
char s[128]；
char *p2；
gethostname(s, 128)；//获取指定计算机的名字
p = gethostbyname(s)；
Memo1->Lines->Add(p->h_name)；
p2 = inet_ntoa(*((in_addr *)p->h_addr))； //获取指定计算机的IP地址
Memo1->Lines->Add(p2)；
}