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

delphi 获取本机IP地址和MAC地址
unit NetFunc;

inte易做图ce

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

if InternetGetConnectedState(nil, 0) then

ShowMessage('已连接');

end;

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

function IsLogonNet: Boolean;

begin

Result := False;

if GetSystemMetrics(SM_NETWORK) <> 0 then

Result := True;

end;

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

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

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

procedure TMainFrom.Button3Click(Sender: TObject);
var
ip: string;
begin
ip := idipwatch1.LocalIP;
Edit2.Text := ip;
end;

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

功能: 通过Ip返回机器名

参数:

IpAddr: 想要得到名字的Ip

返回值: 成功: 机器名失败: ''

备注:

inet_addr function converts a string containing an Internet

Protocol dotted address into an in_addr.

}

function GetNameByIPAddr(IPAddr : String;var MacName:String): Boolean;

var

SockAddrIn: TSockAddrIn;

HostEnt: PHostEnt;

WSAData: TWSAData;

begin

Result := False;

if IpAddr = '' then exit;

try

WSAStartup(2, WSAData);

SockAddrIn.sin_addr.s_addr := inet_addr(PChar(IPAddr));

HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);

if HostEnt <> nil then

MacName := StrPas(Hostent^.h_name);

Result := True;

finally

WSACleanup;

end;

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

功能: 返回网络中SQLServer列表

参数:

List: 需要填充的List

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

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

function GetSQLServerList(var List: Tstringlist): boolean;

var

i: integer;

//sRetValue: String;

SQLServer: Variant;

ServerList: Variant;

begin

//Result := False;

List.Clear;

try

SQLServer := CreateOleObject('SQLDMO.Application');

ServerList := SQLServer.ListAvailableSQLServers;

for i := 1 to Serverlist.Count do

list.Add (Serverlist.item(i));

Result := True;

Finally

SQLServer := NULL;

ServerList := NULL;

end;

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

功能: 判断IP协议有没有安装

参数: 无

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

备注: 该函数还有问题

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

function IsIPInstalled : boolean;

var

WSData: TWSAData;

ProtoEnt: PProtoEnt;

begin

Result := True;

try

if WSAStartup(2,WSData) = 0 then

begin

ProtoEnt := GetProtoByName('IP');

if ProtoEnt = nil then

Result := False

end;

finally

WSACleanup;

end;

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

功能: 返回网络中的共享资源

参数:

IpAddr: 机器Ip

List: 需要填充的List

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

备注:

WNetOpenEnum function starts an enumeration of network

resources or existing connections.

WNetEnumResource function continues a network-resource

enumeration started by the WNetOpenEnum function.

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

function GetUserResource(IpAddr: string; var List: TStringList): Boolean;

type

TNetResourceArray = ^TNetResource;//网络类型的数组

Var

i: Integer;

Buf: Pointer;

Temp: TNetResourceArray;

lphEnum: THandle;

NetResource: TNetResource;

Count,BufSize,Res: DWord;

Begin

Result := False;

List.Clear;

if copy(Ipaddr,0,2) <> '//' then

IpAddr := '//'+IpAddr; //填充Ip地址信息

FillChar(NetResource, SizeOf(NetResource), 0);//初始化网络层次信息

NetResource.lpRemoteName := @IpAddr[1];//指定计算机名称

//获取指定计算机的网络资源句柄

Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_ANY,

RESOURCEUSAGE_CONNECTABLE, @NetResource,lphEnum);

Buf:=nil;

if Res <> NO_ERROR then exit;//执行失败

while True do//列举指定工作组的网络资源

begin

Count := $FFFFFFFF;//不限资源数目

BufSize := 8192;//缓冲区大小设置为8K

GetMem(Buf, BufSize);//申请内存，用于获取工

补充：软件开发 , Delphi ,