#include <iphlpapi.h>   //iphlpapi.lib をリンクする必要がある
 
 void __fastcall TForm1::Button1Click(TObject *Sender)
 {
     char TmpBuf[1024];
     FIXED_INFO * fi;
     ULONG    Len;
     IP_ADDR_STRING * pIPAddr;
 
     Len = sizeof( FIXED_INFO );
     // とりあえず、sizeof(FIXED_INFO)だけ、メモリを確保する
     fi = (FIXED_INFO *)new char[Len];
 
     if( ERROR_BUFFER_OVERFLOW == GetNetworkParams(fi,&Len)){
         //　FIXED_INFOへの確保メモリが不足した場合、再度取得し直す
         delete [] fi;
         fi = (FIXED_INFO *)new char[Len];
     }
 
     if (ERROR_SUCCESS==GetNetworkParams( fi, &Len )){
 
         Memo1->Lines->Add("DNS Servers");
 
         // DNSサーバのアドレスは、FIXED_INFO構造体のIpAddress.Stringに格納されている
         // また、複数のDNSサーバが有る場合は、pIPAddr ->Nextに次のIpAddress.Stringへのポインタが格納されている
         pIPAddr = &(fi->DnsServerList);
         while ( pIPAddr ) {
             wsprintf(TmpBuf,"\t%s\n", pIPAddr ->IpAddress.String );
             Memo1->Lines->Add(TmpBuf);
             pIPAddr = pIPAddr ->Next;
         }
     }
     //メモリの解放
     delete [] fi;
 }