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

//获取网络中的工作组