Delphi下获取进程连接端口.docVIP

Delphi下获取进程连接端口 [转] Windows操作系统提供了一个iphlpapi.dll文件，全称IP帮助API，通过这个函数库可以获取和修改电脑的网络配置、获取网络状态信息、管理网络活动，利用这个文件中两个未公开的函数AllocateAndGetTcpExTableFromStack和AllocateAndGetUdpExTableFromStack可以获得一个TCP连接表和一个UDP连接表，这两个连接表中包含了正在使用当前连接的进程ID号。 　　有的资料称只有Windows XP及以上操作系统才提供了这些扩展IP帮助函数，但是在我的系统（Windows2000+SP4）中程序可以正常运行，我系统中的iphlpapi.dll文件版本号为5.0.2195.7097，程序使用Delphi7.0编写，对于不同的系统这个程序不知是否可以正常运行。 　　网上查到的很多例子都是VC++的，在VC++中调用这两个函数需要动态的从DLL文件中载入，因为对应的iphlpapi.lib文件中没有对这两个函数进行声明，但是在Delphi下没必要这么复杂，Delphi下调用DLL文件中的函数不需要对应的LIB文件，只要对函数进行声明再进行调用就可以了。这两个函数的声明如下： //获取TCP连接表的IP帮助函数声明function AllocateAndGetTcpExTableFromStack(???? var pTcpTable;???? bOrder : Bool;???? heap : THandle;???? zero : DWORD;???? flags : DWORD???? ): DWORD; stdcall; external iphlpapi.dll???? name AllocateAndGetTcpExTableFromStack; //获取UDP连接表的IP帮助函数声明function AllocateAndGetUdpExTableFromStack(???? var pUdpTable;???? bOrder : Bool;???? heap : THandle;???? zero : DWORD;???? flags : DWORD???? ): DWORD; stdcall; external iphlpapi.dll???? name AllocateAndGetUdpExTableFromStack; 　　在调用函数前还要自己定义几个结构，及TCP连接表和UDP连接表，代码如下： //相关数据结构的定义const???? ANY_SIZE=256; type???? MIB_TCPEXROW = record???????? dwState : DWORD;?????? //连接状态???????? dwLocalAddr : DWORD;?? //本地地址???????? dwLocalPort : DWORD;?? //本地端口???????? dwRemoteAddr : DWORD; //远程地址???????? dwRemotePort : DWORD; //远程端口???????? dwProcessId : DWORD;?? //进程ID号???? end; ???? MIB_TCPEXTABLE = record???????? dwNumEntries : DWORD; //端口数量???????? table : array [0..ANY_SIZE-1] of MIB_TCPEXROW;???? end; ???? PMIB_TCPEXTABLE = ^MIB_TCPEXTABLE; ???? MIB_UDPEXROW = record???????? dwLocalAddr : DWORD; //本地地址???????? dwLocalPort : DWORD; //本地端口???????? dwProcessId : DWORD; //进程ID号???? end; ???? MIB_UDPEXTABLE = record???????? dwNumEntries : DWORD; //端口数量???????? table : array [0..ANY_SIZE-1] of MIB_UDPEXROW;???? end; ???? PMIB_UDPEXTABLE = ^MIB_UDPEXTABLE; 　　这两个函数的调用代码如下： AllocateAndGetTcpExTableFromStack(pTcpTab,true,GetProcessHeap(),2,2); //获取TCP连接表Allocate