贴一份用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('\System\CurrentControlSet\Control\Class\ {4D36E972-E325-11CE-BFC1-08002bE10318}\0013',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;