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_Ch......
阅读全文