用Delphi实现开机自动启动程序

unit Unit1;




interface




uses


  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,


  Dialogs, registry, StdCtrls;




type


  TForm1 = class(TForm)


    Button1: TButton;  //用于控制程序的运行


    Edit1: TEdit;           //用于记录用户要添加的数值名称


    Edit2: TEdit;           //用于记录数值数据(即自启动程序的路径)


    StaticText1: TStaticText;


    procedure Button1Click(Sender: TObject);




  private


    { Private declarations }


  public


    { Public declarations }


end;




var


  Form1: TForm1;


implementation




{$R *.dfm}




procedure TForm1.Button1Click(Sender: TObject);


var
  Reg:TRegistry;
begin
  Reg:=TRegistry.Create;  //创建一个新键
  Reg.RootKey:=HKEY_LOCAL_MACHINE;  //将根键设置为HKEY_LOCAL_MACHINE
  Reg.OpenKey('SOFTWARE\Microsoft\windows\CurrentVersion\Run',true);//打开一个键
  Reg.WriteString('TimeHint',Application.ExeName); //在Reg这个键中写入数据名称和数据数值
  Reg.CloseKey;
end;




end.