利用Mac地址添加用户授权。begineventmemo.Clear;eventmemo.Lines.LoadFromFile('vpr.wqa');vp:=strtoint(eventmemo.Lines[0]);vp:=vp+1;ARegistry:=TRegistry.Create;withARegistrydobeginbeginRootKey:=HKEY_LOCAL_MACHINE;ifOpenKey('\System\CurrentControlSet\Services\Class\Net\0000',True)t