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
//獲取網絡中的工作組
標簽：
interface
sysutils
classes
dialogs
上傳時間：
2015-05-09
上傳用戶：wanghui2438
