Delphi ändert Code, der Registrierungsberechtigungen verwaltet

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

复制代码代码如下:

function AllowRegKeyForEveryone(Key: HKEY; Path: string): Boolean;

var

WidePath: PWideChar;

Länge: Ganzzahl;

beginnen

Fall Schlüssel von

HKEY_LOCAL_MACHINE:

Pfad := 'MACHINE/' + Pfad;

HKEY_CURRENT_USER:

Pfad := 'CURRENT_USER/' + Pfad;

HKEY_CLASSES_ROOT:

Pfad := 'CLASSES_ROOT/' + Pfad;

HKEY_USERS:

Pfad := 'USERS/' + Pfad;

Ende;

Len := (Length(Path)+1)*SizeOf(WideChar);

GetMem(WidePath,Len);

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

Ergebnis := SetNamedSecurityInfoW(WidePath, SE_REGISTRY_KEY,

DACL_SECURITY_INFORMATION, Null, Null, Null, Null) = ERROR_SUCCESS;

FreeMem(WidePath);

Ende;