[marcoszorrilla]

Una solución puede ser, una vez instalado el BDE, tener una aplicación que cree los alias.

Código Delphi [-]
unit CreaAlias;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBTables;

  Function Crear_Alias(NombreAlias:String;Nombredir:String):Boolean;
type
  TfrCrearAlias = class(TForm)
    Button1: TButton;
    Session1: TSession;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frCrearAlias: TfrCrearAlias;

implementation

{$R *.DFM}

procedure TfrCrearAlias.Button1Click(Sender: TObject);
var
NombreAlias:String;
Nombredir:String;

NombreAlias2:String;
Nombredir2:String;
begin
NombreAlias:='Dan';
Nombredir:='C:\WDan\Datos';

NombreAlias2:='HDan';
Nombredir2:='C:\WDan\HDan';

  If Crear_Alias(NombreAlias, Nombredir) then
  ShowMessage('Se creo alias')
  else
  ShowMessage('Ela Alias no pudo crearse.');

  If Crear_Alias(NombreAlias2, Nombredir2) then
  ShowMessage('Se creo alias')
  else
  ShowMessage('Ela Alias no pudo crearse.');

  Close;
end;


Function Crear_Alias(NombreAlias:String;Nombredir:String):Boolean;
begin
If not session.IsAlias(NombreAlias) Then
   Begin
   Try
      Session.AddStandardAlias(NombreAlias,Nombredir,'PARADOX');
      Session.SaveConfigFile;
      Result:=True;
   except
      Application.MessageBox('Error Creando el alias','Atención',MB_OK);
      Exit;
      Result:=False
      End;
   end
   else
   begin
   Application.MessageBox('El alias ya existe.','Atención',MB_OK);
   Result:=False;
   end;
end;

end.

Un Saludo.