Delphi 修改注册表使程序开机启动

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btnAddRun: TButton;
    edtFilePath: TEdit;
    dlgOpen1: TOpenDialog;
    procedure btnAddRunClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnAddRunClick(Sender: TObject);
var
     myreg:TRegistry;
begin
     dlgOpen1.Execute;
     myreg:=TRegistry.Create();
     myreg.RootKey:=HKEY_LOCAL_MACHINE;//指定根键
     myreg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);//打开一个键
     myreg.WriteString('test',dlgOpen1.FileName);
     myreg.CloseKey();
     myreg.Free();
     ShowMessage('设置成功');
end;
end.

注意事项：只能选择可执行程序，其他程序无效