关于获取VPN连接后的IP地址

Question

    如何用delphi代码获取，VPN连接后分配给本地的个地址 如下：Ethernet adapter 本地连接:        Connection-specific DNS Suffix  . :
        IP Address. . . . . . . . . . . . : 10.120.20.15
        Subnet Mask . . . . . . . . . . . : 255.255.252.0
        Default Gateway . . . . . . . . . : 10.120.20.1PPP adapter xxx.vpn.com:        Connection-specific DNS Suffix  . :
        IP Address. . . . . . . . . . . . : 10.120.5.130
        Subnet Mask . . . . . . . . . . . : 255.255.255.255
        Default Gateway . . . . . . . . . : 10.120.5.130

我想得到：10.120.5.130

Answer 1

在DELPHI中调用CMD命令（ipconfig /all）然后读取出来就可以了。

Answer 2

本人已经解决，方法能过API函数，读取所有活动连接，再读取每个活动的动态IP地址，最后与局或网网段匹配。