获取本机MAC地址

获取本机MAC地址方法一：

function MacAddress: string; var   Lib: Cardinal;   Func: function(GUID: PGUID): Longint; stdcall;   GUID1, GUID2: TGUID; begin   Result := '';   Lib := LoadLibrary('rpcrt4.dll');   if Lib <> 0 then   begin     if Win32Platform <>VER_PLATFORM_WIN32_NT then       @Func := GetProcAddress(Lib, 'UuidCreate')       else @Func := GetProcAddress(Lib, 'UuidCreateSequential');     if Assigned(Func) then     begin       if (Func(@GUID1) = 0) and         (Func(@GUID2) = 0) and         (GUID1.D4[2] = GUID2.D4[2]) and         (GUID1.D4[3] = GUID2.D4[3]) and         (GUID1.D4[4] = GUID2.D4[4]) and         (GUID1.D4[5] = GUID2.D4[5]) and         (GUID1.D4[6] = GUID2.D4[6]) and         (GUID1.D4[7] = GUID2.D4[7]) then       begin         Result :=          IntToHex(GUID1.D4[2], 2) + '-' +          IntToHex(GUID1.D4[3], 2) + '-' +          IntToHex(GUID1.D4[4], 2) + '-' +          IntToHex(GUID1.D4[5], 2) + '-' +          IntToHex(GUID1.D4[6], 2) + '-' +          IntToHex(GUID1.D4[7], 2);       end;     end;     FreeLibrary(Lib);   end; end;
获得本机MAC地址方法二：  
在delphi的nb30.pas单元中,包含了对netbios协议的完全支持，在该单元中定义了一个名为netbios的函数,通过该函数就能够得到本机的MAC地址.

function GetNetBIOSAddress : string; var   ncb   : TNCB;    status   : TAdapterStatus;    lanenum : TLanaEnum;      procedure ResetAdapter (num : char);      begin        fillchar(ncb,sizeof(ncb),0);        ncb.ncb_command:=char(NCBRESET);        ncb.ncb_lana_num:=num;        Netbios(@ncb);      end; var    i:integer;    lanNum   : char;    address : record               part1 : Longint;               part2 : Word;              end absolute status; begin    Result:='';    fillchar(ncb,sizeof(ncb),0);      ncb.ncb_command:=char(NCBENUM);      ncb.ncb_buffer:=@lanenum;      ncb.ncb_length:=sizeof(lanenum);    Netbios(@ncb);    if lanenum.length=#0 then exit;    lanNum:=lanenum.lana[0];    ResetAdapter(lanNum);    fillchar(ncb,sizeof(ncb),0);      ncb.ncb_command:=char(NCBASTAT);      ncb.ncb_lana_num:=lanNum;      ncb.ncb_callname[0]:='*';      ncb.ncb_buffer:=@status;      ncb.ncb_length:=sizeof(status);    Netbios(@ncb);    ResetAdapter(lanNum);    for i:=0 to 5 do    begin      result:=result+inttoHex(integer(Status.adapter_address[i]),2);      if (i<5) then          result:=result+'-';    end; end;