贴一份用delphi修改注册表改网卡MAC地址的代码

//提示：此代码需要use Registry, Common; 
function WriteMAC(model:integer):integer; 
var 
   reg:TRegistry;
begin 
   reg:=TRegistry.Create; //创建注册表对象
   reg.RootKey:=HKEY_LOCAL_MACHINE; //指定注册表根为HKLM  
   if reg.OpenKey('SystemCurrentControlSetControlClass                  {4D36E972-E325-11CE-BFC1-08002bE10318}013',true) then 
       begin //若项存在 
         reg.WriteString('NetworkAddress','000B6AC824C4');//将MAC值写入NetworkAddress键值
          winexec('devcon disable *DEV_1031*',0)   ; //禁用本地连接 
          sleep(3000); //暂停3秒
          winexec('devcon enable *DEV_1031*',0);  //启用本地连接以使新MAC生效       
          reg.CloseKey; //关闭键值 
          reg.Free; //释放注册表对象
          Result:=1; //修改成功返回1 
        end
        else //若不存在返回0 
            Result:=0;
 end;