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,MaskWORD;
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下可以看见盘符
寻找。。。。。。。
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,MaskWORD;
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下可以看见盘符
寻找。。。。。。。