Code:

uses

Registry;

...

procedure TForm1.Button1Click(Sender: TObject);

var

a: TRegistry;

begin

a := TRegistry.create;

with a do

begin

   RootKey := HKEY_CURRENT_USER;

   OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', true);

   WriteInteger('NoClose', 1);

   CloseKey;

   Free;

end;

end;

 

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!