下面的函数以/’XX-XX-XX-XX-XX-XX/’ 的格式返回远程或本地机器的MAC地址。
　　Function to return the MAC address of a remote or local machine in the format /’XX-XX-XX-XX-XX-XX/’
　　返回的MAC地址是一个能用在多个方面的唯一标识。使用方法：
　　ShowMessage(GetMacAddress(/’////MHEYDON/’);
　　输出/’00-02-08-E7-99-6B/’
　　// ======================================================================
　　//返回值是主机AServerName的MAC地址
　　//AServerName参数的格式为/’////ServerName/’ 或者 /’ServerName/’
　　//参数ServerName为空时返回本机的MAC地址
　　//MAC地址以/’XX-XX-XX-XX-XX-XX/’的格式返回
　　// ======================================================================
　　function GetMacAddress(const AServerName : string) : string;
　　type
　　TNetTransportEnum = function(pszServer : PWideChar;
　　Level : DWORD;
　　var pbBuffer : pointer;
　　PrefMaxLen : LongInt;
　　var EntriesRead : DWORD;
　　var TotalEntries : DWORD;
　　var ResumeHandle : DWORD) : DWORD; stdcall;
　　TNetApiBufferFree = function(Buffer : pointer) : DWORD; stdcall;
　　PTransportInfo = ^TTransportInfo;
　　TTransportInfo = record
　　quality_of_service : DWORD;
　　number_of_vcs : DWORD;
　　transport_name : PWChar;
　　transport_address : PWChar;
　　wan_ish : boolean;
　　end;
　　var E,ResumeHandle,
　　EntriesRead,
　　TotalEntries : DWORD;
　　FLibHandle : THandle;
　　sMachineName,
　　sMacAddr,
　　Retvar : string;
　　pBuffer : pointer;
　　pInfo : PTransportInfo;
　　FNetTransportEnum : TNetTransportEnum;
　　FNetApiBufferFree : TNetApiBufferFree;
　　pszServer : array[0..128] of WideChar;
　　i,ii,iIdx : integer;

上一页12下一页