Delphi修改操作注册表权限的代码
更新时间：2011年09月29日 22:05:59 作者：
Delphi修改操作注册表权限的代码，使用Delphi的朋友可以参考下。
（福利推荐：【腾讯云】服务器最新限时优惠活动，云服务器1核2G仅99元/年、2核4G仅768元/3年，立即抢购>>>：9i0i.cn/qcloud）
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
需要uses jclwin32, AccCtrl; 此文件需要安装JCL
function AllowRegKeyForEveryone(Key: HKEY; Path: string): Boolean;
var
WidePath: PWideChar;
Len: Integer;
begin
case Key of
HKEY_LOCAL_MACHINE:
Path := 'MACHINE\' + Path;
HKEY_CURRENT_USER:
Path := 'CURRENT_USER\' + Path;
HKEY_CLASSES_ROOT:
Path := 'CLASSES_ROOT\' + Path;
HKEY_USERS:
Path := 'USERS\' + Path;
end;
Len := (Length(Path)+1)*SizeOf(WideChar);
GetMem(WidePath,Len);
MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, PChar(Path), -1, WidePath, Len);
Result := SetNamedSecurityInfoW(WidePath, SE_REGISTRY_KEY,
DACL_SECURITY_INFORMATION, nil, nil, nil, nil) = ERROR_SUCCESS;
FreeMem(WidePath);
end;
复制代码 代码如下:
function AllowRegKeyForEveryone(Key: HKEY; Path: string): Boolean;
var
WidePath: PWideChar;
Len: Integer;
begin
case Key of
HKEY_LOCAL_MACHINE:
Path := 'MACHINE\' + Path;
HKEY_CURRENT_USER:
Path := 'CURRENT_USER\' + Path;
HKEY_CLASSES_ROOT:
Path := 'CLASSES_ROOT\' + Path;
HKEY_USERS:
Path := 'USERS\' + Path;
end;
Len := (Length(Path)+1)*SizeOf(WideChar);
GetMem(WidePath,Len);
MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, PChar(Path), -1, WidePath, Len);
Result := SetNamedSecurityInfoW(WidePath, SE_REGISTRY_KEY,
DACL_SECURITY_INFORMATION, nil, nil, nil, nil) = ERROR_SUCCESS;
FreeMem(WidePath);
end;
您可能感兴趣的文章:
相关文章
插件管理框架2.2 实现代码2008-03-03
这篇文章主要介绍了Delphi7中Listview的常用功能,需要的朋友可以参考下2014-07-07
这篇文章主要介绍了Delphi实现限定软件使用时间的方法,商业软件开发中非常实用的功能,需要的朋友可以参考下2014-07-07
delphi中exit,abort,break,continue的区别介绍
本文详细介绍下delphi中表示跳出的有break，continue, exit，abort, halt, runerror的区别，感兴趣的朋友可以参考下哈，希望对你学习跳出有所帮助2013-04-04
今天小编就为大家分享一篇delphi 字符串处理中的怪异现象与处理方式，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧2020-02-02
这篇文章主要介绍了Delphi基本图像处理方法,实例汇总了Delphi操作图像实现浮雕、反色、模糊、翻转等常用效果的方法,非常具有实用价值,需要的朋友可以参考下2015-05-05
delphi 简单实现程序全屏显示无标题栏，覆盖整个屏幕，这个在做工控机或屏保时有用的，具体代码如下，感兴趣的朋友可以参考下哈2013-06-06
delphi xe 可用的MD5算法，需要的朋友可以参考一下2013-04-04
本文为大家详细介绍下delphi判断程序30秒没有键盘和鼠标动作,这里给timer设置了1000ms)的参数，表示30秒的间隔，具体实现如下，感兴趣的朋友可以参考下哈2013-06-06
这篇文章主要介绍了Delphi中设置条件断点的方法，有需要的朋友可以参考一下2014-01-01
最新评论