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;