Delphi는 레지스트리 권한을 작동하는 코드를 수정합니다.

需要는 jclwin32, AccCtrl을 사용합니다. 此文件需要安装JCL

复代码代码如下:

function AllowRegKeyForEveryone(키: HKEY; 경로: 문자열): 부울;

var

와이드패스: PWideChar;

렌: 정수;

시작하다

케이스 키

HKEY_LOCAL_MACHINE:

경로 := 'MACHINE/' + 경로;

HKEY_CURRENT_USER:

경로 := 'CURRENT_USER/' + 경로;

HKEY_CLASSES_ROOT:

경로 := 'CLASSES_ROOT/' + 경로;

HKEY_USERS:

경로 := '사용자/' + 경로;

끝;

Len := (길이(경로)+1)*SizeOf(WideChar);

GetMem(와이드패스,렌);

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

결과 := SetNamedSecurityInfoW(WidePath, SE_REGISTRY_KEY,

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

FreeMem(와이드패스);

끝;