delphi 读取网卡mac的3种方式

用硬件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;
     end;
    end;
     winexec('cmd   /c del c:/fastspeeed.txt',SW_HIDE);
    Result:= re;
end;

第二种

function GetMacAddress(): TStringList ;
var
   re:TStringList;
   i:integer;
begin
    re:=TStringList.Create;
    for I := 0 to 10 do
    begin
    try
      re.add(NBGetAdapterAddress(i));
    Except
       continue;
    end;
    end;
    Result:= re;
end;

function NBGetAdapterAddress(adapterNum: integer): String;
//adapter00为指定的网卡适配器
Var
   NCB:TNCB; // NetBios控制块
   ADAPTER : TADAPTERSTATUS; // 获取网卡状态
   LANAENUM : TLANAENUM; // Netbios lana
   intIdx : Integer; // 临时变量
   cRC : AnsiChar; // NetBios返回值
   strTemp : String; // 临时变量
Begin
   Result := '';
   Try
     // 清空控制块
     ZeroMemory(@NCB, SizeOf(NCB));
     NCB.ncb_command:=Chr(NCBENUM);
     cRC := NetBios(@NCB);
     // 重新设置enum命令
     NCB.ncb_buffer := @LANAENUM;
     NCB.ncb_length := SizeOf(LANAENUM);
     cRC := NetBios(@NCB);
     If Ord(cRC)<>0 Then
       exit;
     // 重新设定网卡
     ZeroMemory(@NCB, SizeOf(NCB));
     NCB.ncb_command := Chr(NCBRESET);
     NCB.ncb_lana_num := LANAENUM.lana[adapterNum];
     cRC := NetBios(@NCB);
     If Ord(cRC)<>0 Then
       exit;
     // 获取网卡地址
     ZeroMemory(@NCB, SizeOf(NCB));
     NCB.ncb_command := Chr(NCBASTAT);
     NCB.ncb_lana_num := LANAENUM.lana[adapterNum];
     StrPCopy(NCB.ncb_callname, '*');
     NCB.ncb_buffer := @ADAPTER;
     NCB.ncb_length := SizeOf(ADAPTER);
     cRC := NetBios(@NCB);
     // 将获得信息转换为字符串
     strTemp := '';
     For intIdx := 0 To 5 Do
       strTemp := strTemp + InttoHex(Integer(ADAPTER.adapter_address[intIdx]),2);
     Result := strTemp;
   Finally
   End;
end;

第三种

function   MacAddress():   string;
var
Lib:   Cardinal;
Func:   function(GUID:   PGUID):   Longint;   stdcall;
GUID1,   GUID2:   TGUID;
begin
Result   :=   '';
Lib   :=   LoadLibrary('rpcrt4.dll');
if   Lib   <>   0   then
begin
        @Func   :=   GetProcAddress(Lib,   'UuidCreateSequential');
        if   Assigned(Func)   then
        begin
            if   (Func(@GUID1)   =   0)   and
                  (Func(@GUID2)   =   0)   and
                  (GUID1.D4[2]   =   GUID2.D4[2])   and
                  (GUID1.D4[3]   =   GUID2.D4[3])   and
                  (GUID1.D4[4]   =   GUID2.D4[4])   and
                  (GUID1.D4[5]   =   GUID2.D4[5])   and
                  (GUID1.D4[6]   =   GUID2.D4[6])   and
                  (GUID1.D4[7]   =   GUID2.D4[7])   then
            begin
                Result   :=
                    IntToHex(GUID1.D4[2],   2)   +   '-'   +
                    IntToHex(GUID1.D4[3],   2)   +   '-'   +
                    IntToHex(GUID1.D4[4],   2)   +   '-'   +
                    IntToHex(GUID1.D4[5],   2)   +   '-'   +
                    IntToHex(GUID1.D4[6],   2)   +   '-'   +
                    IntToHex(GUID1.D4[7],   2);
            end;
        end;
end;
end;