// 型宣言
 typedef struct tagMIB_TCPEXROW{
   DWORD   dwState;        // ステータス
   DWORD   dwLocalAddr;    // ローカル　アドレス
   DWORD   dwLocalPort;    // ローカル　ポート番号
   DWORD   dwRemoteAddr;   // リモート　アドレス
   DWORD   dwRemotePort;   // リモートポート番号
   DWORD   dwProcessId;    // プロセスＩＤ
 } MIB_TCPEXROW, *PMIB_TCPEXROW;
 
 typedef struct tagMIB_TCPEXTABLE{
  DWORD   dwNumEntries;
  MIB_TCPEXROW table[ANY_SIZE];
 } MIB_TCPEXTABLE, *PMIB_TCPEXTABLE;
 
 typedef DWORD (WINAPI *PALLOCATE_AND_GET_TCPEXTABLE_FROM_STACK)(
   PMIB_TCPEXTABLE *pTcpTable,
   BOOL bOrder,
   HANDLE heap,
   DWORD zero,
   DWORD flags
 );
 
 static PALLOCATE_AND_GET_TCPEXTABLE_FROM_STACK pAllocateAndGetTcpExTableFromStack=NULL;
 
 char *StateStrings[]={"","CLOSED","LISTEN","SYN_SENT","SYN_RCVD","ESTABLISHED","FIN_WAIT1","FIN_WAIT2",
             "CLOSE_WAIT","CLOSING","LAST_ACK","TIME_WAIT","DELETE_TCB"};
 
 __fastcall TForm1::TForm1(TComponent* Owner)
     : TForm(Owner)
 {
     // iphlpapi.dll からAllocateAndGetTcpExTableFromStackのポインタを取得
     pAllocateAndGetTcpExTableFromStack = (PALLOCATE_AND_GET_TCPEXTABLE_FROM_STACK) GetProcAddress( LoadLibrary( "iphlpapi.dll"),"AllocateAndGetTcpExTableFromStack" );
     if( !pAllocateAndGetTcpExTableFromStack ){
         Memo1->Lines->Add("ERROR can't load AllocateAndGetTcpExTableFromStack ");
     }
 }
 
 void __fastcall TForm1::Button1Click(TObject *Sender)
 {
 
     char Buf[1024];
     in_addr ina;
     unsigned int port;
     unsigned char *p;
 
 
     Memo1->Lines->Clear();
 
     PMIB_TCPEXTABLE TCPExTable;
 
     //TCPテーブルの取得
     if(pAllocateAndGetTcpExTableFromStack(&TCPExTable, TRUE, GetProcessHeap(), 2, 2)){
         Memo1->Lines->Add("ERROR AllocateAndGetTcpExTableFromStack");
         return;
     }
 
     Memo1->Lines->Add("Proto  Local Address\tForeign Address\tState\tProcessID");
 
 　  //取得したテーブル数は、dwNumEntriesで分かる
     for(unsigned int i=0;idwNumEntries; i++){
         unsigned char *local_ip = (unsigned char * )&(TCPExTable->table[i].dwLocalAddr);
 
         p = (unsigned char * )&(TCPExTable->table[i].dwLocalPort);
         unsigned int local_port = *(p+0)*256 + *(p+1);
 
         unsigned char *remote_ip = (unsigned char * )&(TCPExTable->table[i].dwRemoteAddr);
 
 
         p = (unsigned char * )&(TCPExTable->table[i].dwRemotePort);
         unsigned int remote_port = *(p+0)*256 + *(p+1);
         // LISTEN 状態のリモート側のポート番号は無効な値が入っているようです
         if(*remote_ip==0)
             remote_port=0;
 
         wsprintf(Buf,"TCP  %d.%d.%d.%d:%d\t%d.%d.%d.%d:%d\t%s\t%d"
             ,*(local_ip+0),*(local_ip+1),*(local_ip+2),*(local_ip+3)
             ,local_port
             ,*(remote_ip+0),*(remote_ip+1),*(remote_ip+2),*(remote_ip+3)
             ,remote_port
             ,StateStrings[TCPExTable->table[i].dwState]
             ,TCPExTable->table[i].dwProcessId);
         Memo1->Lines->Add(Buf);
     }
 
 }