[BCB] ローカルホスト名とIPアドレスの取得

#include <System.hpp>
#include <IdWinsock.hpp>

//-----------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
　WORD wVersionRequested;
　TWSAData wsaData;

　wVersionRequested = MAKEWORD(1,1);
　WSAStartup(wVersionRequested,&wsaData);
}
//-----------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
　WSACleanup;
}
//-----------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
　char Buf[256];
　PHostEnt p;

　p=gethostbyname(Buf);

　//IPアドレス
　Label1->Caption=(inet_ntoa)(*((PInAddr)p->h_addr_list[0]));
　//ローカルホスト名
　Label2->Caption=p->h_name;
}
//-----------------------------------------------------------------