delphi6 获取MAC地址

最新推荐文章于 2021-03-29 06:58:49 发布

高原血统

最新推荐文章于 2021-03-29 06:58:49 发布

阅读量253

点赞数

分类专栏： Delphi

本文链接：https://blog.csdn.net/sg24K/article/details/103027455

版权

本文介绍了如何在Delphi 6中编程获取计算机的MAC地址，这对于需要设备唯一标识的软件开发至关重要。

摘要由CSDN通过智能技术生成

delphi 获取MAC地址

function GetMacAddress(const AServerName : string='') : string;
type
     TNetTransportEnum = function(pszServer : PWideChar;
                                  Level : DWORD;
                                  var pbBuffer : pointer;
                                  PrefMaxLen : LongInt;
                                  var EntriesRead : DWORD;
                                  var TotalEntries : DWORD;
                                  var ResumeHandle : DWORD) : DWORD; stdcall;
     TNetApiBufferFree = function(Buffer : pointer) : DWORD; stdcall;
     PTransportInfo = ^TTransportInfo;
     TTransportInfo = record
                       quality_of_service : DWORD;
                       number_of_vcs : DWORD;
                       transport_name : PWChar;
                       transport_address : PWChar;
                       wan_ish : boolean;
                     end;
var E,ResumeHandle,
    EntriesRead,
    TotalEntr