Delphi修改操作注册表权限的代码

需要使用jclwin32、AccCtrl； 此文件需要安装JCL

复制代码代码如下：

函数AllowRegKeyForEveryone（键：HKEY；路径：字符串）：布尔值；

变量

宽路径：PWideChar；

Len：整数；

开始

案件钥匙

HKEY_LOCAL_MACHINE：

路径 := '机器/' + 路径;

HKEY_CURRENT_USER：

路径 := 'CURRENT_USER/' + 路径;

HKEY_CLASSES_ROOT：

路径 := 'CLASSES_ROOT/' + 路径;

HKEY_用户：

路径：='用户/'+路径；

结尾;

Len := (长度(路径)+1)*SizeOf(WideChar);

GetMem(WidePath,Len);

MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, PChar(Path), -1, WidePath, Len);

结果 := SetNamedSecurityInfoW(WidePath, SE_REGISTRY_KEY,

DACL_SECURITY_INFORMATION, nil, nil, nil, nil) = ERROR_SUCCESS;

FreeMem(WidePath);

结尾;