delphi获取网卡MAC地址的两种方法

1.使用Dll中的API函数：

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;

FreeLibrary(Lib);

end;

2.使用NB30单元：

uses

NB30;

function GetAdapterInfo(Lana: Char): String;

var

Adapter: TAdapterStatus;

NCB: TNCB;

begin

FillChar(NCB, SizeOf(NCB), 0);

NCB.ncb_command := Char(NCBRESET);

NCB.ncb_lana_num := Lana;

if Netbios(@NCB) <> Char(NRC_GOODRET) then

begin

Result := 'mac not found';

Exit;

end;

FillChar(NCB, SizeOf(NCB), 0);

NCB.ncb_command := Char(NCBASTAT);

NCB.ncb_lana_num := Lana;

NCB.ncb_callname := '*';

FillChar(Adapter, SizeOf(Adapter), 0);

NCB.ncb_buffer := @Adapter;

NCB.ncb_length := SizeOf(Adapter);

if Netbios(@NCB) <> Char(NRC_GOODRET) then

begin

Result := 'mac not found';

Exit;

end;

Result :=

IntToHex(Byte(Adapter.adapter_address[0]), 2) + '-' +

IntToHex(Byte(Adapter.adapter_address[1]), 2) + '-' +

IntToHex(Byte(Adapter.adapter_address[2]), 2) + '-' +

IntToHex(Byte(Adapter.adapter_address[3]), 2) + '-' +

IntToHex(Byte(Adapter.adapter_address[4]), 2) + '-' +

IntToHex(Byte(Adapter.adapter_address[5]), 2);

end;

function GetMACAddress: string;

var

AdapterList: TLanaEnum;

NCB: TNCB;

begin

FillChar(NCB, SizeOf(NCB), 0);

NCB.ncb_command := Char(NCBENUM);

NCB.ncb_buffer := @AdapterList;

NCB.ncb_length := SizeOf(AdapterList);

Netbios(@NCB);

if Byte(AdapterList.length) > 0 then

Result := GetAdapterInfo(AdapterList.lana[0])

else

Result := 'mac not found';

end;

推荐分享