如何禁止访问指定的驱动器呢 比如我不让用户说E盘,怎么做? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 修改注册表HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer在右边的窗口中DWORD值:“NoDrives”(没有就新建),如果键值为“FFFFFFFF”,则隐藏所有驱动器,为10时隐藏E盘,为8时隐藏D盘,为4时隐藏C盘,为1时隐藏A盘,要取消隐藏,将其值设为0即可。 楼上说的是假的方法。如果我在IE地址栏内输入C:的话还是可以访问的,怎么真正解决这个问题呢 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; 单个模块合成一个完整的程序 关于一个类的用法的迷惑? 如何不让打开文件夹? 如何能够叫主窗体最小化的时候,子窗体也能随之最小化 各位老师给个主意!谢谢! 一个关于键盘的问题!分不够还会给的!UP有分! 多线程出错,求助!全天在线! Excel_workbook.ActiveChart.SetSourceData(Excel_workbook.Sheets['Sheet1'].Range['A1:A10'], xlColumns);这句代码的第一个参数能否与 help....有关于combobox的一个问题? 难!难!难!难!请看...... 帮助文件的问题 错误处理程序如何再返回到程序中
在右边的窗口中DWORD值:“NoDrives”(没有就新建),如果键值为“FFFFFFFF”,则隐藏所有驱动器,为10时隐藏E盘,为8时隐藏D盘,为4时隐藏C盘,为1时隐藏A盘,要取消隐藏,将其值设为0即可。
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;