отключение системного риестра


function offSystemRegistry(off:boolean):boolean;
var
H: TRegistry;
begin
H := TRegistry.Create;
with H do
begin
RootKey := HKEY_CURRENT_USER;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System\', true);
Writebool('DisableRegistryTools',off);
CloseKey;
Free;
end;
result := off;
end;

Hosted by uCoz