需要 использует jclwin32, AccCtrl; 此文件需要安装JCL
复制代码代码如下:
функция AllowRegKeyForEveryone (Ключ: HKEY; Путь: строка): Boolean;
вар
ШирокийПуть: ПВидечар;
Лен: целое число;
начинать
чехол Ключ
HKEY_LOCAL_MACHINE:
Путь:= 'МАШИНА/' + Путь;
HKEY_CURRENT_USER:
Путь: = 'CURRENT_USER/' + Путь;
HKEY_CLASSES_ROOT:
Путь: = 'CLASSES_ROOT/' + Путь;
HKEY_USERS:
Путь:= 'ПОЛЬЗОВАТЕЛИ/' + Путь;
конец;
Лен := (Длина(Путь)+1)*SizeOf(WideChar);
GetMem(WidePath,Len);
MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, PChar(Path), -1, WidePath, Len);
Результат: = SetNamedSecurityInfoW(WidePath, SE_REGISTRY_KEY,
DACL_SECURITY_INFORMATION, ноль, ноль, ноль, ноль) = ERROR_SUCCESS;
FreeMem(WidePath);
конец;