تقوم دلفي بتعديل التعليمات البرمجية التي تعمل على أذونات التسجيل

需要يستخدم jclwin32, AccCtrl; تم تصميم هذا المنتج بواسطة JCL

معلومات المنتج:

وظيفةAllowRegKeyForEveryone(مفتاح: HKEY؛ المسار: سلسلة): منطقية؛

فار

مسار واسع: PWideChar؛

لين: عدد صحيح؛

يبدأ

مفتاح الحالة

HKEY_LOCAL_MACHINE:

المسار := 'MACHINE/' + المسار؛

HKEY_CURRENT_USER:

المسار := 'CURRENT_USER/' + المسار؛

HKEY_CLASSES_ROOT:

المسار := 'CLASSES_ROOT/' + المسار؛

HKEY_USERS:

المسار := 'المستخدمون/' + المسار؛

نهاية؛

لين := (Length(Path)+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);

نهاية؛