利用注册表 将程序设置为开机启动项目

 

 

可以在FormCreate中进行设置

 

uses

.....  Registry;

 

 

procedure TForm.FormCreate(Sender: TObject);

var

reg:TRegistry;  //     注意此处，因为要用到Registry ,  所以需要在USES 单元中添加Registry 类  否则会有红底线提示错误

 

 

begin

 

      reg:=tregistry.Create;

      reg.RootKey:=HKEY_LOCAL_MACHINE;

      reg.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',true);

      reg.WriteString('开机启动程序,'C:/Documents and Settings/Administrator/My Documents/RAD Studio/Projects/kaijiqidongchengxu.exe');

 

      reg.CloseKey;      reg.Free;

end;