Alias en tiempo de ejecución

[[Lepe]]

Oido cocina:

GL.DB es un tipo Record con la configuración cargada desde un .ini

Código Delphi [-]
  with DtbPPal.Session do // dtbPPal es un TDatabase
  begin
    MensajeAdd(true, '2   Alias');
    if IsAlias(gl.DB.Alias) then // gl.db.alias es un string con el nombre del alias
      MensajeAdd(true, '2.1 Usando alias existente: ' + gl.DB.Alias)
    else
    begin
      MensajeAdd(true, '2.1 Creando Alias: ' + gl.DB.Alias + ' para la carpeta: ' +
        gl.DB.DatabaseDir); // ruta completa de la base de datos
      AddStandardAlias(gl.DB.Alias, gl.DB.DatabaseDir, 'Paradox');
    end;

    try
      MensajeAdd(true, '1   Configurar la sesion');
      NetFileDir := GL.DB.NetFileDir;
      MensajeAdd(true, '1.1 Usando Carpeta NET: ' + NetFileDir);
      MensajeAdd(true, '1.2 Usando carpeta temporal: ' + gl.DB.PrivateDir);
      PrivateDir := gl.DB.PrivateDir;
      MensajeAdd(true, '1.3 Modo Sesion: cmAll');
      ConfigMode := cmAll;
      MensajeAdd(true, '1.4 Modo servidor: ' + BoolToStrSP(GL.ModoServidor));
      OnPassword := MiSessionPassword;

    except
      on E: Exception do
        HandleException('Error al configurar la sesion', E);
    end;

  end;//with session

Saludos