Delphi 获取Computer，Ip，工作组，MAC

delphi 获取本机IP地址和MAC地址

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 ='上网了'; 

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

function IsLogonNet: Boolean; 

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

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

function IsIPInstalled : boolean; 

//检测机器是否上网 

function InternetConnected: Boolean; 

//关闭网络连接 

function NetCloseAll:boolean; 

// 代码实现部门

implementation

 

//判断网络是否连接

 uses

WinInet;

procedure TForm1.Button1Click(Sender: TObject);

begin