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;
復制代碼 代碼如下:
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圖形及文字特效的處理有一定的借鑒價值,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi下OpenGL2d繪圖之畫點的方法,需要的朋友可以參考下2014-07-07
Delphi實現Listbox中的item根據內容顯示不同顏色的方法
這篇文章主要介紹了Delphi實現Listbox中的item根據內容顯示不同顏色的方法,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了截取指定符號之間的字符串(隨機讀取)delphi實例代碼，有需要的朋友可以參考一下2013-12-12
這篇文章主要介紹了delphi7連接mysql5的實現方法,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi常用關鍵字用法,包括了各個常用的關鍵字及其詳細用法,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi實現限定軟件使用時間的方法,商業(yè)軟件開發(fā)中非常實用的功能,需要的朋友可以參考下2014-07-07
下面小編就為大家?guī)硪黄狣elphi提取PDF文本實例。小編覺得挺不錯的，現在就分享給大家，也給大家做個參考。一起跟隨小編過來看看吧2017-06-06
這篇文章主要介紹了Delphi實現讀取系統(tǒng)時間與日期完整實例,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi用TActionList實現下載文件的方法,需要的朋友可以參考下2014-07-07