如何使用Delphi获取网卡的MAC地址？

发布时间：2020-12-15 10:06:36 所属栏目：大数据来源：网络整理

导读：根据标题 – 任何人都可以帮助我吗？解决方法从 Project JEDI API Header Library获取Microsoft IP Helper Library的JEDI转换 – 该文件是IPHlpAPI.zip.解压缩文件,需要IpTypes.pas和IpHlpApi.pas.然后你可以使用这样的东西： procedure TForm1.Button1Cli

根据标题 – 任何人都可以帮助我吗？

解决方法

从 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;

(省略所有错误处理,当然应该添加它.)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!