delphi 自定义网络函数：unit net interface uses sysutils ,windows ,dialogs ,winsock ,classes ,comobj ,wininet //得到本机的局域网ip地址 function getlocalip(var localip:string): boolean //通过ip返回机器名 function getnamebyipaddr(ipaddr: string var macname: string): boolean //获取网络中sqlserver列表 function getsqlserverlist(var list: tstringlist): boolean //获取网络中的所有网络类型 function getnetlist(var list: tstringlist): boolean //获取网络中的工作组
