delphi 获取跃点、网卡序号，添加、删除路由节点

uses
  Windows, WinSock, IpHlpApi, IpRtrMib;

//获取网卡序号
function GetGPIndex(const AIP: AnsiString): Cardinal;
var
  ipinfo, info: PIpAdapterInfo;
  ips: TIpAddrString;
  len, nerr: Cardinal;
  str: AnsiString;
  ok: Boolean;
begin
  Result := 0;

  len := 0;
  nerr := GetAdaptersInfo(nil, len);
  GetMem(ipinfo, len);
  nerr := GetAdaptersInfo(ipinfo, len);
  ok := False;
  if nerr = 0 then
  begin
    info := ipinfo;
    while(info <> nil) do
    begin
        ips := info^.IpAddressList;
        str := StrPas(ips.IpAddress.S);
        str := Trim(Str);
        while(str <> '')do
        begin
          if SameText(str, AIP) then
          begin
            Result := info^.Index;
            ok := True;
            Break;
          end
          else begin
            if Assigned(ips.Next) then
            begin
              ips := ips.Next^;
              str := StrPas(ips.IpAddress.S);
              str := Trim(Str);
            end
            else str := '';
          end;
        end;
      if ok then
        Break;
      info := info^.Next;
    end;
  end;
  FreeMem(ipinfo, len);
end;

// 获取跃点
function GetHops(const AIP: AnsiString): Cardinal;
var
  pIpForwardTable: PMibIpForwardTable;
  dwSize, dwStatus,NewGateway: Cardinal;
  bOrder, needfree: Boolean;
  i: Integer;
begin
  Result := 30;
  pIpForwardTable := nil;
  dwSize := 0;
  dwStatus := 0;
  NewGateway := $DDCCBBAA;
  needfree := False;
  dwStatus := GetIpForwardTable(pIpForwardTable, dwSize, False);
  if (dwStatus = ERROR_INSUFFICIENT_BUFFER) then
  begin
    GetMem(pIpForwardTable, dwSize);
    needfree := True;
    dwStatus := GetIpForwardTable(pIpForwardTable, dwSize, False);
  end;
  if dwStatus = ERROR_SUCCESS then
  begin
    NewGateway := inet_addr(PAnsiChar(AIP));
    for i := 0 to pIpForwardTable^.dwNumEntries - 1 do
      if pIpForwardTable^.table[i].dwForwardDest = NewGateway then
      begin
        Result := pIpForwardTable^.table[i].dwForwardMetric1;
        Break;
      end;
  end;
  if needfree then
    FreeMem(pIpForwardTable);
end;

//初始化MibIP  AIP: 路由节点  AMask: 节点掩码  ANextHop: 下一节点  ANetwork：网卡序号  AHop: 跃点
function InitMibIp(const AIP, AMask, ANextHop: AnsiString; ANetwork, AHop: Cardinal): TMibIpForwardRow;
begin
  FillChar(Result, SizeOf(Result), 0);
  Result.dwForwardDest := inet_addr(PAnsiChar(AIP));
  Result.dwForwardMask := inet_addr(PAnsiChar(AMask));
  Result.dwForwardNextHop := inet_addr(PAnsiChar(ANextHop));
  Result.dwForwardPolicy := 0;
    Result.dwForwardIfIndex := ANetwork;
    Result.dwForwardType := 4;  //the next hop is not the final dest
    Result.dwForwardProto := 3; //PROTO_IP_NETMGMT
    Result.dwForwardAge := 0;
    Result.dwForwardNextHopAS := 0;
    Result.dwForwardMetric1 := AHop;
    Result.dwForwardMetric2 := $FFFFFFFF;
    Result.dwForwardMetric3 := $FFFFFFFF;
    Result.dwForwardMetric4 := $FFFFFFFF;
    Result.dwForwardMetric5 := $FFFFFFFF;
end;

//添加路由
function AddRoute(const AIP, AMask, ANextHop: AnsiString; ANetwork, AHop: Cardinal): Boolean;
begin
  Result := CreateIpForwardEntry(InitMibIp(AIP, AMask, ANextHop, ANetwork, AHop) = NO_ERROR;
end;

//删除路由
function DellRoute(const AIP, AMask, ANextHop: AnsiString; ANetwork, AHop: Cardinal): Boolean;
begin
  Result := DeleteIpForwardEntry(InitMibIp(AIP, AMask, ANextHop, ANetwork, AHop) = NO_ERROR;
end;