procedure DisableTaskmgr(Key: Boolean); Var Reg:TRegistry; Begin Reg:=TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey(''''\Software\Microsoft\Windows\CurrentVersion\Policies\System'''', True) then begin if Key then Reg.WriteString(''''DisableTaskMgr'''',''''1'''') else Reg.WriteInteger(''''DisableTaskMgr'''',0); Reg.CloseKey; end; except Reg.Free; end; end;
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
