• 在Delphi7内取网卡MAC地址


    function GetMAC(CardNo: integer): string;
    //CardNo指定多个网卡适配器中的哪一个0,1,2...
    var
      NCB: TNCB; 
    // Netbios control block file://NetBios控制块
      ADAPTER: TADAPTERSTATUS; // Netbios adapter status//取网卡状态
      LANAENUM: TLANAENUM; // Netbios lana
      intIdx: Integer; // Temporary work value//临时变量
      cRC: Char; // Netbios return code//NetBios返回值
      strTemp: string// Temporary string//临时变量
    begin
      
    // Initialize
      Result := '';
      
    try
        // Zero control blocl
        ZeroMemory(@NCB, SizeOf(NCB));
        
    // Issue enum command
        NCB.ncb_command := Chr(NCBENUM);
        cRC :
    = NetBios(@NCB);
        
    // Reissue enum command
        NCB.ncb_buffer := @LANAENUM;
        NCB.ncb_length :
    = SizeOf(LANAENUM);
        cRC :
    = NetBios(@NCB);
        
    if Ord(cRC) <> 0 then Exit;
        
    // Reset adapter
        ZeroMemory(@NCB, SizeOf(NCB));
        NCB.ncb_command :
    = Chr(NCBRESET);
        NCB.ncb_lana_num :
    = LANAENUM.lana[a];
        cRC :
    = NetBios(@NCB);
        
    if Ord(cRC) <> 0 then Exit;
        
    // Get adapter address
        ZeroMemory(@NCB, SizeOf(NCB));
        NCB.ncb_command :
    = Chr(NCBASTAT);
        NCB.ncb_lana_num :
    = LANAENUM.lana[a];
        StrPCopy(NCB.ncb_callname, 
    '*');
        NCB.ncb_buffer :
    = @ADAPTER;
        NCB.ncb_length :
    = SizeOf(ADAPTER);
        cRC :
    = NetBios(@NCB);
        
    // Convert it to string
        strTemp := '';
        
    for intIdx := 0 to 5 do
          strTemp := strTemp + InttoHex(Integer(ADAPTER.adapter_address[intIdx]), 2);
        Result :
    = strTemp;
       
    finally
       end;
    end;

  • 相关阅读:
    python类方法和静态方法
    42个创意户外广告设计
    50免费为移动设计和开发的PSD文件极力推荐
    40个高品质的免费商业PSD文件
    10 个有用免费 CSS3 强大工具
    10个方便的在线CSS代码生成器,网页设计师必备!
    对makefile中,变量定义中 通配符的理解
    GNU make manual 翻译(八十七)
    GNU make manual 翻译(八十九)
    GNU make manual 翻译(八十五)
  • 原文地址:https://www.cnblogs.com/martian6125/p/9631491.html
Copyright © 2020-2023  润新知