Delphi แก้ไขโค้ดที่ดำเนินการอนุญาตรีจิสทรี

需要ใช้ jclwin32, AccCtrl; 此文件需要安装JCL

复制代码代码如下:

ฟังก์ชั่น AllowRegKeyForEveryone (คีย์: HKEY; เส้นทาง: สตริง): บูลีน;

var

WidePath: PWideChar;

เลน: จำนวนเต็ม;

เริ่ม

กรณีคีย์ของ

HKEY_LOCAL_MACHINE:

เส้นทาง := 'เครื่องจักร/' + เส้นทาง;

HKEY_CURRENT_USER:

เส้นทาง := 'CURRENT_USER/' + เส้นทาง;

HKEY_CLASSES_ROOT:

เส้นทาง := 'CLASSES_ROOT/' + เส้นทาง;

HKEY_USERS:

เส้นทาง := 'ผู้ใช้/' + เส้นทาง;

จบ;

Len := (ความยาว (เส้นทาง) +1) * SizeOf (WideChar);

GetMem(WidePath,เลน);

MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, PChar (เส้นทาง), -1, WidePath, Len);

ผลลัพธ์ := SetNamedSecurityInfoW (WidePath, SE_REGISTRY_KEY,

DACL_SECURITY_INFORMATION, ไม่มี, ไม่มี, ไม่มี, ไม่มี) = ERROR_SUCCESS;

FreeMem(ไวด์พาธ);

จบ;