国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Delphi > 正文

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

2020-01-31 20:52:17
字體:
來源:轉載
供稿:網友
需要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;
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板: 蒲城县| 来宾市| 闽清县| 祁阳县| 珠海市| 文昌市| 菏泽市| 宝应县| 靖西县| 晋州市| 神农架林区| 南漳县| 酉阳| 浮梁县| 剑河县| 眉山市| 古蔺县| 宜良县| 济源市| 额敏县| 咸丰县| 油尖旺区| 航空| 巴东县| 布尔津县| 开阳县| 临汾市| 上饶县| 泾川县| 辛集市| 阿鲁科尔沁旗| 中方县| 鄢陵县| 杨浦区| 莲花县| 榕江县| 车致| 海盐县| 南雄市| 宾阳县| 东莞市|