Delphi modifie le code qui exploite les autorisations de registre

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

复制代码代码如下 :

fonction AllowRegKeyForEveryone (Clé : HKEY ; Chemin : chaîne) : Booléen ;

var

WidePath : PWideChar ;

Len : entier ;

commencer

cas Clé de

HKEY_LOCAL_MACHINE :

Chemin := 'MACHINE/' + Chemin ;

HKEY_CURRENT_USER :

Chemin := 'CURRENT_USER/' + Chemin ;

HKEY_CLASSES_ROOT :

Chemin := 'CLASSES_ROOT/' + Chemin ;

HKEY_USERS :

Chemin := 'UTILISATEURS/' + Chemin ;

fin;

Longueur := (Longueur(Chemin)+1)*SizeOf(WideChar);

GetMem(WidePath,Len);

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

Résultat := SetNamedSecurityInfoW(WidePath, SE_REGISTRY_KEY,

DACL_SECURITY_INFORMATION, néant, néant, néant, néant) = ERROR_SUCCESS ;

FreeMem(WidePath);

fin;