函数是指一段可以直接被另一段程序或代码引用的程序或代码。也叫做子程序、（OOP中）方法。

{===================================

功  能: 网络函数库

时  间: 2002/10/02

版  本: 1.0

备  注:

没有事情干，抄抄写写整理了一些网络函数供大家使用。

希望大家能继续补充

===================================}

unit netFunc;

interface

uses

SysUtils

,Windows

,dialogs

,winsock

,Classes

,ComObj

,WinInet

,Variants;

//错误信息常量

const

C_Err_GetLocalIp       = '获取本地ip失败';

C_Err_GetNameByIpAddr  = '获取主机名失败';

C_Err_GetSQLServerList = '获取SQLServer服务器失败';

C_Err_GetUserResource  = '获取共享资失败';

C_Err_GetGroupList     = '获取所有工作组失败';

C_Err_GetGroupUsers    = '获取工作组中所有计算机失败';

C_Err_GetNetList       = '获取所有网络类型失败';

C_Err_CheckNet         = '网络不通';

C_Err_CheckAttachNet   = '未登入网络';

C_Err_InternetConnected ='没有上网';

C_Txt_CheckNetSuccess  = '网络畅通';

C_Txt_CheckAttachNetSuccess = '已登入网络';

C_Txt_InternetConnected ='上网了';

//得到本机的局域网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;

//获取网络中的工作组

Function GetGroupList(var List: TStringList): Boolean;

//获取工作组中所有计算机

Function GetUsers(GroupName: string; var List: TStringList): Boolean;

//获取网络中的资源

Function GetUserResource(IpAddr: string; var List: TStringList):

Boolean;

//映射网络驱动器

Function NetAddConnection(NetPath: Pchar; PassWord: Pchar;LocalPath:

Pchar): Boolean;

//检测网络状态

Function CheckNet(IpAddr:string): Boolean;

//检测机器是否登入网络

Function CheckMacAttachNet: Boolean;

//判断Ip协议有没有安装   这个函数有问题

Function IsIPInstalled : boolean;

//检测机器是否上网

Function InternetConnected: Boolean;

//关闭网络连接

function NetCloseAll:boolean;

implementation

{=================================================================

功  能: 检测机器是否登入网络

参  数: 无

返回值: 成功:  True  失败:  False

备 注:

版 本:

1.0  2002/10/03 09:55:00

=================================================================}

Function CheckMacAttachNet: Boolean;

begin

Result := False;

if GetSystemMetrics(SM_NETWORK) <> 0 then

Result := True;

end;

{=================================================================

功  能: 返回本机的局域网Ip地址

参  数: 无

返回值: 成功:  True, 并填充LocalIp   失败:  False

备 注:

版 本:

1.0  2002/10/02 21:05:00

=================================================================}

function GetLocalIP(var LocalIp: string): Boolean;

var

HostEnt: PHostEnt;

Ip: string;

addr: pchar;

Buffer: array [0..63] of char;

GInitData: TWSADATA;

begin

Result := False;

try

WSAStartup(2, GInitData);

GetHostName(Buffer, SizeOf(Buffer));

HostEnt := GetHostByName(buffer);

if HostEnt = nil then Exit;

addr := HostEnt^.h_addr_list^;

ip := Format('%d.%d.%d.%d', [byte(addr [0]),

byte (addr [1]), byte (addr [2]), byte (addr [3])]);

LocalIp := Ip;

Result := True;

finally

WSACleanup;

end;

end;