delphi 读取网卡mac的3种方式

原创

于 2010-07-11 03:00:00 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #integer #function #command #网络协议 #buffer

本文介绍了三种使用Delphi编程语言来读取计算机网卡物理地址（MAC）的方法，包括利用Windows API函数、PInvoke技术以及第三方库。详细阐述了每种方法的实现步骤和关键代码，为Delphi开发者提供了实用的网络编程技巧。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

7月11日

用硬件id加密程序，其中一项加密是用mac地址。

mac如果是真实网卡信息是唯一的，不好的消息是网卡很容易就能虚拟,所以需要配合其它手段。

现在有三种方式，各有利弊

第一种最简单也最实用，通过调用ipconfig -all 来取得网卡。

第二种通过netbios，因为是网络协议，如果网卡没有连接上，取不到mac地址

第三种通过rpc调用，只能得到一块网卡.在有多块网卡时会出现有时取到的MAC不一致.

第一种

function   MacAddress():   string;
implementation
function GetIpMacAddress(): TStringList;
var
   files,re:TStringList;
   i:integer;
   row:String;
begin
re:=TStringList.Create;
files:= TStringList.Create;
   winexec('cmd   /c ipconfig -all >c:/fastspeeed.txt',SW_HIDE);
   sleep(500);
    files.LoadFromFile('c:/fastspeeed.txt');
    for I := 0 to files.Count -1 do
    begin
     row:= files.Strings[i];
     if ContainsText(row,'Physical Address') then
     begin
     try
       re.Add(RightStr(row,17));
     Except

end;