黑基网 首页 学院 网络安全 查看内容

隐藏系统中的驱动器

2009-10-7 01:42| 投稿: security

摘要: 一个怎样在我的电脑里隐藏驱动器的例子。希望对一些人有用。 使用下面的程序后请重新启动计算机。 "NoDrives"是二进制值,也可以是十进制值。 一个驱动器的值是前面驱动器的值的两倍:A = 1...
一个怎样在我的电脑里隐藏驱动器的例子。希望对一些人有用。 使用下面的程序后请重新启动计算机。 "NoDrives"是二进制值,也可以是十进制值。 一个驱动器的值是前面驱动器的值的两倍:A = 1 , B = 2 , C = 4 , D = 8 , E = 16 ......依次类推。 例如:如果想隐藏盘符C和盘符E,就要将 4 和 16 相加,结果是 4 + 16 = 20 ,然后调用 HideDriver(20); uses Registry; procedure HideDriver(HideNumber: integer); var Reg: TRegistry; begin Reg := TRegistry.Create; try with Reg do begin RootKey := HKEY_CURRENT_USER; OpenKey('Software/Microsoft/Windows/CurrentVersion/Policies/Explorer', True); WriteInteger('NoDrives', HideNumber); CloseKey; RootKey := HKEY_LOCAL_MACHINE; OpenKey('Software/Microsoft/Windows/CurrentVersion/Policies/Explorer', True); WriteInteger('NoDrives', HideNumber); CloseKey; end; finally Reg.Free; end; end; 增加下列代码在一个 Button 的 OnClick 事件中,可以让我的电脑里隐藏的驱动器重新显示,但必须重新启动计算机。 var Reg: TRegistry; begin Reg := TRegistry.Create; try with Reg do begin RootKey := HKEY_CURRENT_USER; OpenKey('Software/Microsoft/Windows/CurrentVersion/Policies/Explorer', True); DeleteValue('NoDrives'); CloseKey; RootKey := HKEY_LOCAL_MACHINE; OpenKey('Software/Microsoft/Windows/CurrentVersion/Policies/Explorer', True); DeleteValue('NoDrives'); CloseKey; end; finally Reg.Free; end; end;
小编推荐:欲学习电脑技术、系统维护、网络管理、编程开发和安全攻防等高端IT技术,请 点击这里 注册黑基账号,公开课频道价值万元IT培训教程免费学,让您少走弯路、事半功倍,好工作升职加薪!



免责声明:本文由投稿者转载自互联网,版权归原作者所有,文中所述不代表本站观点,若有侵权或转载等不当之处请联系我们处理,让我们一起为维护良好的互联网秩序而努力!联系方式见网站首页右下角。


鲜花

握手

雷人

路过

鸡蛋

相关阅读

最新评论


新出炉

返回顶部