大家都不用争了,其实这个功能微软已经提供了,就是IPHLP。
大家可以到Http://delphi-jedi.org去下载它的pas头文件。里面就有一个Netstat
全套功能的例子。不过这个例子在使用-r参数时有问题。你要修改
procedure DisplayRoutingTable;中的
if GetIpForwardTable(nil, Size, True) <> ERROR_BUFFER_OVERFLOW then Exit;
改成
if GetIpForwardTable(nil, Size, True) <> ERROR_INSUFFICIENT_BUFFER then Exit;
我在Delphi6+win2000 pro sp2 中通过。