如何隐藏硬盘分区?(10分)

  • 主题发起人 主题发起人 lcl_003
  • 开始时间 开始时间
L

lcl_003

Unregistered / Unconfirmed
GUEST, unregistred user!
我想隐藏一个硬盘的分区该怎么实现呢?
 
用pq一下就行了很简单
 
哦,我是说用delphi如何实现
 
通过DELPHI调出MBR然后修改分区的属性即可!
 
哦,能说具体点吗
 
通过修改注册表就可以实现在windows下隐藏分区。
隐藏我的电脑中的驱动器
隐藏所有驱动器:HKEY_CURRENT_USER/Software/Microsoft/Windows
/CurrentVersion/Policies/Explorer 在右边的窗口中创建一个DWORD值:“NoDrives”,
不同的位对应不同的分区。
 
to:wk_knife
那如何取消隐藏呢?
 
是把相应的为置为1,就隐藏,置为0就取消。
比方0XFFFF,就是所有的位都置为1,隐藏所有硬盘分区——不要轻易如此哦
 
哦,不太明白怎么设置。那位对应那个分区呢?比如我想隐藏d盘该怎么写?
 
0000000000000000000000000000000
zyxwvutsrqpomnlkjhgfedcba
0000000000000000000000000001000 为隐藏D盘,也就是0X8
0000000000000000000000000011000 为隐藏D、E两盘,也就是0X18

 
哦,我新建了NoDrives,可是我怎么改啊?“0X8”我写在那里?
 
右键点NoDrives,选修改,不就可以了。
然后重启计算机
 
在窗体上放一个edit,一个button,双击button,输入代码:

procedure TForm1.Button1Click(Sender: TObject);
var
reg:TRegistry;
a,i:word;
begin
edit1.Text:=lowercase(edit1.Text);
a:=0;
for i:=1 to length(edit1.text) do
a:=a or (1 shl (ord(edit1.text)-97));
reg:=TRegistry.Create;
try
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer',true) then begin
if reg.KeyExists('NoDrivers')=false
then reg.CreateKey('NoDrivers');
reg.WriteInteger('NoDrivers',a);
reg.CloseKey;
end;
finally
reg.Free;
inherited;
end;
end;

edit1是输入你要隐藏的字符串,比如你要隐藏D,E盘,就在edit1中输入de即可。
 
注册表最好使。。
但是有些慢
 
to 超级番茄,我按你写的做了,可是没用啊。在注册表里的确是写了键值,可是分区
没有隐藏掉啊,那里有问题呢?
 
to zhoubbss:
如何按你说的作?
 
你重新注销一次就可以了。
 
运行后重新启动即可。
 
啊,可是我重起了也不行啊,注册表里到是有键值了
 
那就要问wk_knife了
 
后退
顶部