文件名称：利用Mac地址添加用户授权
文件大小：7.19MB
文件格式：ZIP
更新时间：2017-03-11 08:17:11
Mac 地址 用户授权
利用Mac地址添加用户授权。 begin eventmemo.Clear; eventmemo.Lines.LoadFromFile('vpr.wqa'); vp:=strtoint(eventmemo.Lines[0]); vp:=vp+1; ARegistry := TRegistry.Create; with ARegistry do begin begin RootKey:=HKEY_LOCAL_MACHINE; if OpenKey('\System\CurrentControlSet\Services\Class\Net\0000',True) then WriteString('NetworkAddress','090000'+inttostr(vp)); if OpenKey('\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\0000',True) then WriteString('NetworkAddress','090000'+inttostr(vp)); if OpenKey('\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\0001',True) then WriteString(