begin
with
Tregistry.Create do
try
RootKey:=HKEY_CURRENT_USER;
openkey(k,true);
writeInteger('DisableRegistryTools',1);
closeKey;
finally
free;
end;
end; //禁止使用注册表
then begin
with
Tregistry.Create do
try
RootKey:=HKEY_CURRENT_USER;
openkey(kk,true);
writeInteger('NoSetFolders',1);
closeKey;
finally
free;
end;
end;//禁止使用控制面版
with
Tregistry.Create do
try
RootKey:=HKEY_CURRENT_USER;
openkey(k,true);
writeInteger('DisableRegistryTools',1);
closeKey;
finally
free;
end;
end; //禁止使用注册表
then begin
with
Tregistry.Create do
try
RootKey:=HKEY_CURRENT_USER;
openkey(kk,true);
writeInteger('NoSetFolders',1);
closeKey;
finally
free;
end;
end;//禁止使用控制面版
解决方案 »
- ocx窗口的调用
- delphi7中用mscomm的一个怪异问题啊
- 服务中调用ADO控件的问题
- 请问类型转换的问题!在线等待!!!!!
- 关于内存文件映射与流的读写
- 请各位经验丰富大侠指点!!!!
- 高分请教!SOS
- 我要跳楼了,救救我,为什么我的JPEG文件装入数据库,再用TADOBlobStream读出来的时候字节多了出来,我再用TJPEGImage 读的时候说 Jpeg error #52 怎么办?我有许多图片要装入数据库里呢?我一定给分
- 网络设置问题,恳请高手指点
- 在delphi中用isapi做动态页面,使用TpageProducer 但对具有框架结构的html文件中包含的子html中<#XXX>一点作用都没有,对框架的html中<#XXX>有作用
- 一个关于多线程的问题哦!(多个窗口)
- 如何联接表中字段和DBComboBox控件
K ='\Software\Microsoft\Windows\CurrentVersion\Policies\System';
KK ='\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer';