程序设为开机自动启动-注册表

https://www.oschina.net/code/snippet_54124_5194

if FlatCheckBox1.Checked then
  begin
    ProgramLj:=Slash(trim(extractfiledir(application.exename)))+'BackupOracle.exe';
    Reg:=Tregistry.Create;
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',False);
    Reg.WriteString('备份Oracle数据',ProgramLj);//换成你的
    Reg.CloseKey;
    Reg.Free;
    end
else
  begin
    Reg:=Tregistry.Create;
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',False);
    Reg.deletevalue('备份Oracle数据');
    Reg.Free;
  end;
    showmessage('保存完成！');