必要な場合は jclwin32、AccCtrl を使用します。 この文には JCL のインストールが必要です
复制番号代番号次のように:
関数AllowRegKeyForEveryone(キー: HKEY; パス: 文字列): ブール値;
変数
ワイドパス: PwideChar;
レン: 整数。
始める
ケースのキー
HKEY_LOCAL_MACHINE:
パス := 'MACHINE/' + パス;
HKEY_CURRENT_USER:
パス := 'CURRENT_USER/' + パス;
HKEY_CLASSES_ROOT:
パス := 'CLASSES_ROOT/' + パス;
HKEY_USERS:
パス := 'USERS/' + パス;
終わり;
Len := (長さ(パス)+1)*サイズ(ワイド文字);
GetMem(ワイドパス,レン);
MultiByteTowideChar(CP_ACP, MB_PRECOMPOSED, PChar(Path), -1, WidePath, Len);
結果 := SetNamedSecurityInfoW(ワイドパス, SE_REGISTRY_KEY,
DACL_SECURITY_INFORMATION、nil、nil、nil、nil) = ERROR_SUCCESS;
FreeMem(ワイドパス);
終わり;