一个简单问题,求助高手,万分感谢!

Question

procedure TForm1.LabelBtn2Click(Sender: TObject);
var
  s:string;
  ADOlinkreg:treginifile;
begin
  if edit1.Text = '' then
  begin
   application.messagebox(pchar('你并没有配置数据库，请正确配置，否则将无法完成操作   ！   '),pchar('提示')  ,MB_ICONINFORMATION);
   exit ;
  end;
  s:=Edit1.Text;
  adolinkreg:=treginifile.Create('');
  with adolinkreg do
  try
    begin
      RootKey:=HKEY_LOCAL_MACHINE;
      DeleteValue('software\1\') ;
      openkey('software\1\',true);
      writestring('ADODATA','adolink',s);
      writestring('软件信息','adolink','');
  SetDlgAutoClose(8000, Sender = LabelBtn2);
  MessageBox(Handle, PChar(' 保存数据库配置成功！   ！' +
    #13#10 + ' '+
    #13#10 + '本程序将在 8 秒钟后自动关闭' + #13#10 +
    '建议关闭程序，重新启动程序   ' + #13#10 +
    '就可以方便的数据快速连接  '),  //or MB_OKCANCEL
    '定时自动关闭本程序',MB_ICONINFORMATION or MB_OKCANCEL );
    //application.messagebox(pchar(' 保存数据库配置成功！  ！建议关闭程序，重新启动程序，本程序将在以下时间关闭    '),pchar('管理员－欢迎提出意见')  ,MB_ICONINFORMATION);
      {读入数据库}
      DRSJK ;
      CheckBox1.Checked := false ;
      ShellExecute(handle,'Open',PChar(Application.ExeName),'','', SW_SHOWNORMAL);
      free;
      Close ;
     end;
  except
    begin
     application.messagebox(pchar(' 保存配置文件出错，并查检你的注册表是否存在或者损坏 ！  ！   '),pchar('提示')  ,MB_ICONINFORMATION);
     free;
  end;
end;
end;请问一下ADOlinkreg:treginifile是什么意思?运用到他是干什么的?我对这段代码不是很理解,在这里先谢谢各位帮忙了!

Answer 1

如果你习惯INI文件但要将配置信息改为存储到注册表，可使用TRegINIFile类。TRegINIFile设计为使注册表项看上去像INI文件项。所有的TINIFile的方法（读和写）都存在于TRegINIFile。当构造TRegINIFile对象时，传入的参数（对INIFile对象来说是文件名）成为注册表根部的用户键值，所有节及值都由此分支。实际上，该对象极大地简化了注册表的接口，因此更多信息参见VCL帮助TReyINfile主题。可以根本不用改变现有代码就可用它来代替TRegistry组件

Answer 2

TRegistry是对注册表操作的类，TRegIniFile则是继承TRegistry增加了对INI文件的支持，可以方便地将信息按INI的格式写进注册表。
这段代码就是将edit1.Text里的配置信息写入注册表。