procedure TSetup_Main.Apply_BtnClick(Sender: TObject); var RegKey:TRegistry; begin RegKey:=TRegistry.Create; RegKey.RootKey:=HKEY_LOCAL_MACHINE; RegKey.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',True); if ShutSys_CheckBox.Checked then RegKey.WriteInteger('NoClose',1) else RegKey.DeleteValue('NoClose'); //关闭系统 if Run_CheckBox.Checked then RegKey.WriteInteger('NoRun',1) else RegKey.DeleteValue('NoRun'); //禁止运行 RegKey.CloseKey; RegKey.Free; end;老兄,你给100分是不是太多了哦,网上关于注册表的文章到处都是呀~~~~~~~ www.reginfo.net 不错的,可惜要7月10号后才可以访问了~~~~~~~
你装个“超级兔子魔法设置Magic Set”
中有这个选项设置,
如果你没有就去下载,很多网站上都可以下载。
var RegKey:TRegistry;
begin
RegKey:=TRegistry.Create;
RegKey.RootKey:=HKEY_LOCAL_MACHINE;
RegKey.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',True);
if ShutSys_CheckBox.Checked then RegKey.WriteInteger('NoClose',1)
else RegKey.DeleteValue('NoClose'); //关闭系统
if Run_CheckBox.Checked then RegKey.WriteInteger('NoRun',1)
else RegKey.DeleteValue('NoRun'); //禁止运行
RegKey.CloseKey;
RegKey.Free;
end;老兄,你给100分是不是太多了哦,网上关于注册表的文章到处都是呀~~~~~~~
www.reginfo.net 不错的,可惜要7月10号后才可以访问了~~~~~~~
REGEDIT4
[HKEY_CURRENT_USER\SoftWare\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NORUN"=Dword:00000000然后把这个文件导入就行了(双击,YES)