如何使用 Delphi 获取网卡的 Mac 地址?
最佳答案
从 Project JEDI API Header Library 获取 Microsoft IP Helper Library 的 JEDI 转换- 文件是IPHlpAPI.zip。解压文件,您需要 IpTypes.pas 和 IpHlpApi.pas。然后你可以使用这样的东西:
procedure TForm1.Button1Click(Sender: TObject);
var
NumInterfaces: Cardinal;
AdapterInfo: array of TIpAdapterInfo;
OutBufLen: ULONG;
i: integer;
begin
GetNumberOfInterfaces(NumInterfaces);
SetLength(AdapterInfo, NumInterfaces);
OutBufLen := NumInterfaces * SizeOf(TIpAdapterInfo);
GetAdaptersInfo(@AdapterInfo[0], OutBufLen);
Memo1.Lines.Clear;
for i := 0 to NumInterfaces - 1 do begin
Memo1.Lines.Add(Format('%.2x:%.2x:%.2x:%.2x:%.2x:%.2x',
[AdapterInfo[i].Address[0], AdapterInfo[i].Address[1],
AdapterInfo[i].Address[2], AdapterInfo[i].Address[3],
AdapterInfo[i].Address[4], AdapterInfo[i].Address[5]]));
end;
end;
(省略了所有错误处理,您当然应该添加它。)
关于delphi - 如何使用Delphi获取网卡的MAC地址?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/577071/