1 procedure autoStart;
 2 var
 3   Reg: TRegistry;
 4 begin
 5    Reg := TRegistry.Create(KEY_WRITE or KEY_READ or KEY_WOW64_64KEY);
 6    Reg.RootKey := HKEY_LOCAL_MACHINE;
 7    Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', true);

 8    if chkauto.Checked then //界面勾选框
 9    begin
10      Reg.WriteString('程序', '"' + ParamStr(0) + '"');
11    end
12    else
13    begin
14         Reg.DeleteKey('程序');
15    end;
16    finally
17      Reg.CloseKey; //关闭键
18    end;
19 end

注意： win10 下需要以管理员身份运行才生效。