IPHLPAPI.DLL в windows 7

[Horus92]

У меня такая проблема в программе используются функции AllocateAndGetTcpExTableFromStack и AllocateAndGetUdpExTableFromStack а в windows 7 при компиляции вылазит ошибка:

Точка входа в процедуру AllocateAndGetUdpExTableFromStack не найдена в библиотеке DLL IPHLPAPI.DLL

Подскажите пожалуйста на что заменены эти функции в windows 7

[Horus92]

Нашел мне надо использовать GetExtendedTCPTable попробовал
но почему-то возвращает результат ошибки.

procedure TForm1.Button1Click(Sender: TObject);
var
  Size: DWORD;
  TCPExTable: PTMibTCPExTable;
  UDPTable: PTMibUdpExTable;
  I: DWORD;
  hProcessSnap: THandle;
begin
 hProcessSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if (hProcessSnap = INVALID_HANDLE_VALUE) then
  begin
    Memo1.Lines.Add('');
    Memo1.Lines.Add('CreateToolhelp32Snapshot failed');
    Exit;
  end;

  GetMem(TCPExTable, Size);
  try

    if GetExtendedTcpTable(TCPExTable, Size, True) <> NO_ERROR then
    begin
       Memo1.Lines.Add('');
      Memo1.Lines.Add('Extended TCP Stats');
      Memo1.Lines.Add(Format('%15s: | %5s | %-12s | %20s | (%s)', ['Host', 'Port', 'State']));
      Memo1.Lines.Add('==========================================================================');
      for I := 0 to TCPExTable^.dwNumEntries - 1 do
        Memo1.Lines.Add(Format('%15s: | %5d | %-12s | %20s | (%d)',
          [inet_ntoa(in_addr(TCPExTable^.Table[I].dwLocalAddr)),
          htons(TCPExTable^.Table[I].dwLocalPort),
          PortStateToStr(TCPExTable^.Table[I].dwState)
          ]));

          end;
  finally
    FreeMem(TCPExTable);
  end;

Использовал код из примера tcpstat на форуме _http://programmersforum.ru/showthread.php?t=861&highlight=tcps tat