问多网卡HNetCfg.NATUPnP

EN

Nat := CreateOleObject('HNetCfg.NATUPnP');
Ports := Nat.StaticPortMappingCollection;

if not VarIsClear ( Ports ) then
begin
  Enum := Ports._NewEnum;
  foreach := enum as IEnumVariant;

  while foreach.Next(1, Port, PDWORD(0)^) = 0 do
  begin
    Desc := Port.Description;       //str
    Enabled := Port.Enabled;        //bool
    ExtIP := Port.ExternalIPAddress;//str
    ExtPort := Port.ExternalPort;   //int
    IntClient := Port.InternalClient; //str
    IntPort := Port.InternalPort;     //int
    Protocol := Port.Protocol;        //str
    temp := Desc + #9;
    if enabled then
      temp := temp + 'True' + #9
    else
      temp := temp + 'False' + #9;
    temp := temp + ExtIP + #9 + IntToStr(ExtPort) + #9 +
      IntClient + #9 + IntToStr(intPort) + #9 + Protocol + #13;
  end;
end;