比如我不让用户说E盘,怎么做?

解决方案 »

  1.   

    修改注册表HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
    在右边的窗口中DWORD值:“NoDrives”(没有就新建),如果键值为“FFFFFFFF”,则隐藏所有驱动器,为10时隐藏E盘,为8时隐藏D盘,为4时隐藏C盘,为1时隐藏A盘,要取消隐藏,将其值设为0即可。
      

  2.   

    楼上说的是假的方法。如果我在IE地址栏内输入C:的话还是可以访问的,怎么真正解决这个问题呢
      

  3.   

    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; 
    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;