Delphi修改操作注冊表權限的代碼

更新時間：2011年09月29日 22:05:59 作者：

Delphi修改操作注冊表權限的代碼，使用Delphi的朋友可以參考下。

需要uses jclwin32, AccCtrl; 此文件需要安裝JCL

 
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; 

您可能感興趣的文章:

Delphi 常見文件處理及注冊表文件的使用實例

Delphi遠程連接Mysql的實現(xiàn)方法
這篇文章主要介紹了Delphi遠程連接Mysql的實現(xiàn)方法,需要的朋友可以參考下
2014-09-09
Delphi修改操作注冊表權限的代碼
Delphi修改操作注冊表權限的代碼，使用Delphi的朋友可以參考下。
2011-09-09
Delphi中使用ISuperObject解析Json數(shù)據(jù)的實現(xiàn)代碼
這篇文章主要介紹了Delphi中使用ISuperObject解析Json數(shù)據(jù)的實現(xiàn)代碼,需要的朋友可以參考下
2017-09-09
Delphi 在窗體上創(chuàng)建自己光標的實例
這篇文章主要介紹了Delphi 在窗體上創(chuàng)建自己光標的實例的相關資料,希望通過本文能幫助到大家，需要的朋友可以參考下
2017-09-09
delphi 判斷字符串是否包含漢字，正則版與非正則版實現(xiàn)
這篇文章主要介紹了delphi 判斷字符串是否包含漢字，正則版與非正則版實現(xiàn),需要的朋友可以參考下
2022-12-12
Delphi解析FTP地址的方法
這篇文章主要介紹了Delphi解析FTP地址的方法,涉及Delphi解析FTP的相關技巧,需要的朋友可以參考下
2015-05-05
Delphi下OpenGL2d繪圖之畫四邊形的方法
這篇文章主要介紹了Delphi下OpenGL2d繪圖之畫四邊形的方法,需要的朋友可以參考下
2014-07-07
Delphi實現(xiàn)木馬自我拷貝方法
這篇文章主要介紹了Delphi實現(xiàn)木馬自我拷貝方法,對于研究木馬的運行原理很有幫助,需要的朋友可以參考下
2014-07-07
Delphi 調(diào)用外部程序并阻塞到外部程序中
這篇文章主要介紹了Delphi 調(diào)用外部程序并阻塞到外部程序中的相關知識，本文給大家介紹的非常詳細，具有一定的參考借鑒價值,需要的朋友可以參考下
2019-09-09
Windows API GetLastError()函數(shù)返回值含義解釋
這篇文章主要介紹了Windows API GetLastError()函數(shù)返回值含義解釋,本文羅列了所有錯誤代碼及中文注釋,需要的朋友可以參考下
2015-05-05