程序开机启动

 procedure   Check_AutoRun(CheckBox1:   TCheckBox;   StrRegName:   String;   StrRegValue:   String);  
  var  
          RegMy   :   Tregistry;     //定义变量RegMy  
  begin  
          RegMy   :=   Tregistry.Create;     //创建变量  
          RegMy.RootKey   :=   HKEY_CURRENT_USER;     //指定要操作的根键  
          if   CheckBox1.Checked=True   then  
          try  
                  if   RegMy.OpenKey('Software/Microsoft/Windows/CurrentVersion/Run',True)   then  
                          RegMy.WriteString(StrRegName,StrRegValue);  
          finally  
                  RegMy.CloseKey;  
                  RegMy.Free;              
          end;  
           
          if   CheckBox1.Checked=False   then  
          try  
                  if   RegMy.OpenKey('Software/Microsoft/Windows/CurrentVersion/Run',False)   then  
                  begin  
                          if   RegMy.ValueExists(StrRegName)   then  
                                  RegMy.DeleteValue(StrRegName);  
                  end;  
          finally  
                  RegMy.CloseKey;  
                  RegMy.Free;  
                  //inherited;  
          end;  
  end;