一个多线程的网络扫描控件Delphi源码，多线程的局域网扫描组件，NBTPort=137;//设定对端UDP端口号 　　UDPPort=8327;//设定本端UDP端口号 　　WM_SOCK=WM_USER$0001;//自定义windows消息 　　Over_IP='Over';//组件退出时的标志 　　FIP:string;//当前探测的IP地址 　　FEvent:THandle;//延迟事件句柄 　　protected 　　{protecteddeclarations} 　　procedureSendDa