如何獲得修改登錄檔的許可權

uses

jclwin32,

accctrl;

function   allowregkeyforeveryone(key:   hkey;   path:   string):   boolean;

var  

widepath:   pwidechar;  

len:   integer;

begin  

case   key   of  

hkey_local_machine:  

path   :=   'machine\'   +   path;  

hkey_current_user:  

path   :=   'current_user\'   +   path;  

hkey_classes_root:  

path   :=   'classes_root\'   +   path;  

hkey_users:  

path   :=   'users\'   +   path;  

end;  

len   :=   (length(path)+1)*sizeof(widechar);  

getmem(widepath,len);  

multibytetowidechar(cp_acp,   mb_precomposed,   pchar(path),   -1,   widepath,   len);  

result   :=   setnamedsecurityinfow(widepath,   se_registry_key,

dacl_security_information,   nil,   nil,   nil,   nil)   =   error_success;  

freemem(widepath);  

end;