Delphi modifica el código que opera los permisos de registro

需要usa jclwin32, AccCtrl; 此文件需要安装JCL

复制代码代码如下:

función AllowRegKeyForEveryone (Clave: HKEY; Ruta: cadena): booleano;

var

Ruta ancha: PWideChar;

Len: Entero;

comenzar

caso Clave de

HKEY_LOCAL_MACHINE:

Ruta := 'MÁQUINA/' + Ruta;

HKEY_CURRENT_USER:

Ruta := 'CURRENT_USER/' + Ruta;

HKEY_CLASSES_ROOT:

Ruta := 'CLASSES_ROOT/' + Ruta;

HKEY_USERS:

Ruta := 'USUARIOS/' + Ruta;

fin;

Len := (Longitud(Ruta)+1)*TamañoDe(WideChar);

GetMem(WidePath,Len);

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

Resultado := SetNamedSecurityInfoW(WidePath, SE_REGISTRY_KEY,

DACL_SECURITY_INFORMATION, nulo, nulo, nulo, nulo) = ERROR_SUCCESS;

FreeMem(Ruta ancha);

fin;