delphi做的插件

使用方法

export prototype AskIpAddressDialog(HWND,BYREF string ,BYREF int ,BYREF int);
prototype stdcall STRING iptools.GetMyIP();
prototype stdcall int iptools.CheckPort(int); 
prototype stdcall int iptools.IsIP(string);
prototype stdcall int iptools.IsValidIP(string);

 

//

UseDLL(SUPPORTDIR^"iptools.dll")

 

//

if (iptools.CheckPort(i)=1) && (i!=nApachePort) then

 

 

dll文件下载地址：

http://supersyd.download.csdn.net/