取得本地internet機器的名字及IP地址

　　一、下面的例子使用 Winsock API 取得本地主機的名字及地址
　　 void __fastcall TForm1::Button1Click(TObject *Sender)
　　 {
　　 hostent *p;
　　 char s[128];
　　 char *p2;
　　 //Get the computer name
　　 gethostname(s, 128);
　　 p = gethostbyname(s);
　　 Memo1->Lines->Add(p->h_name);
　　 //Get the IpAddress
　　 p2 = inet_ntoa(*((in_addr *)p->h_addr));
　　 Memo1->Lines->Add(p2);
　　 }
　　 void __fastcall TForm1::FormCreate(TObject *Sender)
　　 {
　　 Word wVersionRequested;
　　 WSADATA wsaData;
　　
　　 //Start up WinSock
　　 wVersionRequested = MAKEWORD(1, 1);
　　 WSAStartup(wVersionRequested, &wsaData);
　　 }
　　
　　 void __fastcall TForm1::FormDestroy(TObject *Sender)
　　 {
　　 WSACleanup();
　　 }