Delphi修改操作登錄權限的程式碼

需使用jclwin32、AccCtrl； 此檔案需要安裝JCL

複製程式碼如下：

函數AllowRegKeyForEveryone（鍵：HKEY；路徑：字串）：布林值；

變數

寬路徑：PWideChar；

Len：整數；

開始

案件鑰匙

HKEY_LOCAL_MACHINE：

路徑 := '機器/' + 路徑;

HKEY_CURRENT_USER：

路徑 := 'CURRENT_USER/' + 路徑;

HKEY_CLASSES_ROOT：

路徑 := 'CLASSES_ROOT/' + 路徑;

HKEY_使用者：

路徑：='用戶/'+路徑；

結尾;

Len := (長度(路徑)+1)*SizeOf(WideChar);

GetMem(WidePath,Len);

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

結果 := SetNamedSecurityInfoW(WidePath, SE_REGISTRY_KEY,

DACL_SECURITY_INFORMATION, nil, nil, nil, nil) = ERROR_SUCCESS;

FreeMem(WidePath);

結尾;