隐藏指定盘符 在DOS下也隐藏(50分)

  • 主题发起人 主题发起人 delphi2046
  • 开始时间 开始时间
D

delphi2046

Unregistered / Unconfirmed
GUEST, unregistred user!
检查盘符:
GetLogicalDrives
GetLogicalDriveStrings
隐藏盘符:
添加注册表项
HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer中
添加NoDrives,二进制类型.A对1, b对2, c对4
隐藏ADE则为1+8+16=25


Const
_PATH='/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer';
var
I,T:Integer;
Buffer,Mask:DWORD;
R:TRegistry;
begin
Mask:=0;
R:=Tregistry.Create;
R.Rootkey:=HKEY_CURRENT_USER;
R.CreateKey(_PATH);
R.OpenKey(_PATH,False);
if R.ReadBinaryData('NoDrives',Buffer,SizeOf(Buffer))=0 then
Buffer:=0;
Buffer:=Buffer and not Mask or Mask;//保护驱动器不受破坏;
R.WriteBinaryData('NoDrives',Buffer,SizeOf(Buffer));
R.Free
end;
...


可以隐藏 但是在dos下可以看见盘符

寻找。。。。。。。
 
请详细一点 谢谢!!
 
你可以尝试把你的程序改成console application,生成exe后用wdosx里的编译工具编译成dos程序;不过我没试过,你可以试下
 
关注[:)]。。。。。。。。。。
 
没门,改注册表方式只是在Explorer中隐藏而已,实际并未隐藏,直接在运行中输入盘符或地址栏中输入盘符还是可以打开。
Explorer不过就是一应用程序,这种隐藏方式只是骗眼睛而已。
 
怎样才能真正的隐藏???????????
 
地址栏中AndExplorer中输入盘符 也找不到!![?][?]
 
后退
顶部