Saludos...
Los DSN existen dentro de un archivo de texto con estructura en 'arbol' tipo Profile (perfil)...
Para leer el perfi utiliza estas instrucciones... en este caso del archivo Perfil_Caja.INI el cual contiene...
[Caja]
Estacion=Estación
Empresa=1
Numero=4
Tipo=0
...Proceso...
//Perfil de la Estación...
IF FileExists("C:AplicacionPerfil_Caja.INI") THEN
PC = ProfileString("C:AplicacionPerfil_Caja.INI", "Caja", "Estacion", "")
ig_empresa =integer ProfileString "C:AplicacionPerfil_Caja.INI", "Caja", "Empresa", "0"))
ig_caja =integer(ProfileString("C:AplicacionPerfil_Caja.INI", "Caja", "Numero", ""))
ig_tipo_caja=integer(ProfileString("C:AplicacionPerfil_Caja.INI", "Caja", "Tipo", ""))
IF PC = "" THEN
// Error de configuración.
MessageBox("Error!","Caja No Configurada! (Falta Perfil)")
HALT
ELSE
...
END IF
El archivo de los DSN (ODBC) es ODBC.INI que está en la carpeta donde esté instalado el Windows...