Crear ODBC dinámicamente?

[[jcarteagaf]]

La información de los ODBC se almacen en el registro del Windows, uso el siguiente codigo para generar ODBC's que apuntan a SQL SERVER desde mis aplicaciones

Código SQL [-]
var
  r : TRegistry

begin
    r := TRegistry.create;
    r.RootKey:= HKEY_LOCAL_MACHINE;
    r.OpenKey('SOFTWARE\ODBC\ODBC.INI\'+Nombre_ODBC,true);
    r.WriteString('Database',Nombre_base_de_datos);
    r.WriteString('Driver','C:\WINDOWS\System32\SQLSRV32.dll');
    r.WriteString('Language','Español');
    r.WriteString('Lastuser',Nombre_Usuario);
    r.WriteString('Server',Nombre_Servidor);
    r.CloseKey;
    r.Free;
    r := TRegistry.create;
    r.RootKey:= HKEY_LOCAL_MACHINE;
    r.OpenKey('SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources',true);
    r.WriteString(Nombre_ODBC,'SQL Server');
    r.CloseKey;
    r.Free;
  end;
end;

Espero que te sirva. Saludos