如何编程来控制windows的“组策略”编辑器呢?如解决另高分相赠! 谢谢(200分)

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

DaChu

Unregistered / Unconfirmed
GUEST, unregistred user!
主要想实现以下操作:

运行“gpedit.msc”进入组策略编辑器。依次展开“本地计算机策略→用户配置→管理模板→Windows组件→Windows资源管理器”。从右边窗口中找到“隐藏我的电脑中的这些指定的驱动器”,双击打开设置窗口,在设置标签中选择“已启用”,并在下方下拉菜单中设置为“仅限制驱动器C” ,隐藏的盘符为C。

再回到“我的电脑”窗口,此时已经看不到C盘图标了,不过在地址栏中输入“C:/”仍然可以访问C盘。为了彻底将C盘隐藏,我们还需要做进一步的操作。

在组策略中的“本地计算机策略→用户配置→管理模板→Windows组件→Windows资源管理器”中找到“防止从我的电脑访问驱动器”,双击打开设置窗口选择“已启用”,在下拉菜单中选择“仅限制驱动器C”

经过以上设置后,C盘就被彻底隐藏了
 
再回到“我的电脑”窗口,此时已经看不到C盘图标了,不过在地址栏中输入“C:/”仍然可以访问C盘
这一步骤 很好实现 只需要在程序中往注册表里写入一个新的键值就可以做到, 如需详细过程可再说明。
后面的步骤还未想到,还要想想
 
高手都来呀!好像优化大师也能通过 C:/ 来访问
 
真的没人知道吗?
 
你说的问题都可以通过编辑注册表来解决,但是与你这样操作有点不同的是需要系统注销后才能起效果
 
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Registry, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegIniFile;
Buf: DWORD;
begin
Buf := 4;
Reg := TRegIniFile.Create('MyApp');
Reg.RootKey:= HKEY_CURRENT_USER;
Reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer', False);
Reg.WriteBinaryData('NoViewOnDrive', Buf, sizeof(Buf));
Reg.WriteBinaryData('NoDrives', Buf, sizeof(Buf));
end;

end.

不知是否满足你的要求,程序运行后需注销系统后,才起作用。
 
我也知道是操作注册表,但是不知道是哪些项呀!
重启无所谓呀
 
我9:37发的回复没看到吗 已经写代码了 应该满足你的要求了
 
代码看见了,当是没试,现在调试通过! OK 正是我想要的结果,谢谢啦!

你是如何知道修改这两个项目的!我的意思是,如果我想实现组策略中的其它操作时
我如何操作具体的项,

有人指出使用RegMon进行监控注册表变化,但我使用RegMon无法找到,
是否有其它方法,请不吝赐教!
再次感谢!
 
监控注册表没用的,因为注册表实际上是windows的INI文件,即配置文件,所以windows启动时会去读取这些设定值,至于windows启动之后底层是怎么工作的 是不知道的。至于你想知道注册表里哪些项代表哪些意思你可以找相关书籍看看
 
哪些书籍呀?请留下联系方式,如不方便,请联系我:msn:we_are_friend@hotmail.com
 
qq: 276078851(不过一般周末才上)
themars@163.com
另,我学编程才1个月噢,能帮你很高兴,不过别把我当高手
 
学无先后,达者为师!
谢谢先!
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部