[leon2009]

Здравствуйте! Может кто подсказать как вывести список интернет соединений? пр: открываю сайт https://delphisources.ru = он мне в memo1 его ip адрес или отправил в чат сообщение или мне отправили, то memo ip адрес ии выдает = но я не могу разобраться .

Код:

procedure ListTCPConnections;
var
  TCPTable: PMIB_TCPTABLE_OWNER_PID;
  TableSize, i: DWORD;
  ConnInfo: PMIB_TCPROW_OWNER_PID;
begin
  TableSize := 0;
  // Получаем размер таблицы
  GetExtendedTcpTable(nil, TableSize, False, AF_INET, TCP_TABLE_OWNER_PID_ALL, 0);
  GetMem(TCPTable, TableSize);
  try
    if GetExtendedTcpTable(TCPTable, TableSize, False, AF_INET, TCP_TABLE_OWNER_PID_ALL, 0) = NO_ERROR then
    begin
      for i := 0 to TCPTable.dwNumEntries - 1 do
      begin
        ConnInfo := @TCPTable.Table[i];
        Writeln(Format('Local: %s:%d, Remote: %s:%d, State: %d, PID: %d',
          [inet_ntoa(ConnInfo.dwLocalAddr), ntohs(ConnInfo.dwLocalPort),
           inet_ntoa(ConnInfo.dwRemoteAddr), ntohs(ConnInfo.dwRemotePort),
           ConnInfo.dwState, ConnInfo.dwOwningPid]));
      end;
    end;
  finally
    FreeMem(TCPTable);
  end;
end;

Спасибо!