利用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 RootKey:=HKEY_LOCAL_MACHINE; if OpenKey('SystemCurrentControlSetServicesClassNet0000',True) then WriteString('NetworkAddress','090000'+inttostr(vp)); if OpenKey('SYSTEMCurrentControlSetControlClass{4D36E972-E325-11CE-BFC1-08002bE10318}0001',True) then WriteString(
文件大小：7.19MB
评论区