Delphi Получить Mac Адрес

MAC-адрес устройства (Media Access Control) - уникальный идентификатор, присвоенный сетевому интерфейсу для идентификации в сети.

Delphi предоставляет функции, позволяющие получить MAC-адрес локального компьютера.

uses  Winsock, SysUtils;  function GetMACAddress: string;var  NCB: TNCB;  Adapter: PAdapterStatus;  AdapterLength: Integer;  ReturnValue: PNCB;  I: Integer;  L: TStringList;begin  L := TStringList.Create;  try    FillChar(NCB, SizeOf(TNCB), 0);    NCB.ncb_command := AnsiChar(NCBENUM);    NCB.ncb_buffer := @L[0];    NCB.ncb_length := SizeOf(TAdapterStatus);    ReturnValue := @NCB;    if Netbios(ReturnValue) = 0 then    begin      AdapterLength := Ord(L[0]);      Adapter := PAdapterStatus(L[1]);      while PByte(Adapter) - PByte(L[0]) < AdapterLength do      begin        L := TStringList.Create;        try          for I := 1 to Length(Adapter.adapter_address) do            L.Add(IntToHex(Byte(Adapter.adapter_address[I]), 2));          Result:= L.DelimitedText;        finally          L.Free;        end;      end;    end;  finally    L.Free;  end;end;

Вызов функции GetMACAddress вернет MAC-адрес локальной машины в формате XX-XX-XX-XX-XX-XX