隐藏驱动器:隐藏我的电脑中驱动器

使用下面后请重新启动计算机

"NoDrives"是 2进制值也可以是十进制值

个驱动器值是前面驱动器值两倍:A = 1 , B = 2 , C = 4 , D = 8 , E = 16 ......依次类推

例如:如果想隐藏盘符C和盘符E就要将 4 和 16 相加结果是 4 + 16 = 20 然后 HideDriver(20);

uses Registry;

procedure HideDriver(HideNumber: eger);
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 _disibledevent= HKEY_LOCAL_MACHINE;
      OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', True);
      DeleteValue('NoDrives');
      CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

当然实际上这个解决思路方法不能真正隐藏驱动器更贴切解决思路方法将在次站点尽快得到响应

延伸阅读

• 2009-1-16-- windows驱动器:Windows系统中巧妙隐藏驱动器