如何将ADO的连接串写到注册表中

Question

如何将ADO的连接串写到注册表中

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;//////////设置根
    if Reg.OpenKey('\Software\MyApp', True) then
//////////////打开键下面的\Software\MyApp 
    begin
      Reg.WriteString('Ado','"' + ADOConnection1.ConnectionString + '"');///写入      
      Reg.CloseKey;///////关闭
    end;
  finally
    Reg.Free;
  end;end;

Answer 2

建议：用INI文件吧  （方便移植，修改>）