[Gudzik11]

с помощью CheckBox я могу управлять авто загрузкой своей программы
Но при закрытии программы положение CheckBox становится в изначальный
режим False
Та ка мне записать значение CheckBox в in файл чтоб при загрузке значение оставалось таким как я его задал в последний раз

Код:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Registry;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    CheckBox1: TCheckBox;
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
 



procedure TForm2.CheckBox1Click(Sender: TObject);
Var
  Reg: TRegistry;
begin
 if CheckBox1.Checked=False then

  begin
   Reg:=TRegistry.Create;
    Begin
     Reg.RootKey:=HKEY_LOCAL_MACHINE;
     Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',True);
     Reg.DeleteValue('PC Off');
     Reg.Free;
    End;
  end
     else if CheckBox1.Checked=True then

  Begin
       Reg:=TRegistry.Create;
    Begin
      Reg.RootKey:=HKEY_LOCAL_MACHINE;
      Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',True);
      Reg.WriteString('PC Off',Application.ExeName);
      Reg.Free;
     End;
  end;
  end;

end.