inno 获取网关 mac地址

最新推荐文章于 2024-01-03 16:20:38 发布

Mradxz

最新推荐文章于 2024-01-03 16:20:38 发布

阅读量306

点赞数

分类专栏： Inno Setup 文章标签：其他

本文链接：https://blog.csdn.net/Mradxz/article/details/122476109

版权

Inno Setup 专栏收录该内容

1 篇文章 1 订阅

订阅专栏

function SendARP(ipaddr: ulong; temp: dword; ulmacaddr: pointer; ulmacaddrleng:
    pointer): dword; stdcall; external 'Iphlpapi.dll' Name 'SendARP';

function IP2Mac(ipaddr:ULong):String;
var
  AMac: array [0 .. 5] of BYTE;
  l: ulong;
  r: integer;
begin
  l:=6;  
  r := SendARP(ipaddr, 0, @AMac, @l);
  if r=0 then
    Result:=Format('%2.2x-%2.2x-%2.2x-%2.2x-%2.2x-%2.2x', [AMac[0], AMac[1], AMac[2], AMac[3], AMac[4],AMac[5]])
  else
    Result:='';
end;