利用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\CurrentControlSe
procedure WriteRegKeyString(Param_RootKey: HKey; Param_CurrentKey, Param_KeyItem, Param_KeyString: String); var MyRegistry: TRegistry; begin MyRegistry := TRegistry.Create; with MyRegistry do begin RootKey := Param_RootKey; if OpenKey(Param_CurrentK
Delphi通过修改Windows注册表的方法隐藏开始菜单中的“关机”命令，把关机的功能菜单隐藏起来，用户通过开始菜单找不到关机命令。隐藏开始菜单可执行以下命令： MyReg := TRegistry.Create; MyReg.RootKey := HKEY_CURRENT_USER; if MyReg.OpenKey(\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,True) then begin
Delphi 隐藏运行框,通过修改Windows7注册表的方法来隐藏运行框，用户打开开始菜单将看不到“运行”框，本代码将运行框隐藏了。隐藏运行框的代码如下： MyReg := TRegistry.Create; MyReg.RootKey := HKEY_CURRENT_USER; if MyReg.OpenKey(\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,True) then begin
Delphi改变IE主页URL的程序源码，也就是设置IE的首页，在窗口中输入指定的URL，点击确定即可。具体的修改代码如下： if Application.MessageBox(确定要更改吗？,提示,MB_YESNO)= ID_YES then begin MyReg := TRegistry.Create; MyReg.RootKey := HKEY_CURRENT_USER; if MyReg.OpenKey(\Software\Microsoft\In
