Delphi memodifikasi kode yang mengoperasikan izin registri

需要 menggunakan jclwin32, AccCtrl; JCL

复制代码代码如下:

fungsi AllowRegKeyFor Everyone(Kunci: HKEY; Jalur: string): Boolean;

var

Jalur Lebar: PWideChar;

Len: Bilangan Bulat;

mulai

kasus Kunci dari

HKEY_LOCAL_MACHINE:

Jalur := 'MESIN/' + Jalur;

HKEY_CURRENT_USER:

Jalur := 'CURRENT_USER/' + Jalur;

HKEY_CLASSES_ROOT:

Jalur := 'CLASSES_ROOT/' + Jalur;

HKEY_USERS:

Jalur := 'PENGGUNA/' + Jalur;

akhir;

Len := (Panjang(Jalur)+1)*Ukuran(WideChar);

GetMem(Jalur Lebar,Len);

MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, PChar(Jalur), -1, WidePath, Len);

Hasil := SetNamedSecurityInfoW(WidePath, SE_REGISTRY_KEY,

DACL_SECURITY_INFORMATION, nihil, nihil, nihil, nihil) = ERROR_SUCCESS;

FreeMem(Jalur Lebar);

akhir;