Configuracion BDE

[jsc]

Hola,
me preguntaba si existe alguna manera sencilla de poder configurar el BDE para mi aplicacion.
el caso es que tengo un programa que me interesaria poder instalar en otros pc's con algun installshield, y queria saber como podria configurar el bde y demas para que la aplicacion pueda correr en otros pc's
en mi ordenador no hay problema porque estan configurados los alias... bien pero no se como hacerlo en otros pc's de forma automatica;
como puedo generar un installshield de instalacion que configure el bde con los alias que utiliza mi aplicacion y le indique al bde donde tiene que ir a buscar las bd que utilizo?
gracias de antemano

[marcoszorrilla]

Una solución puede ser, una vez instalado el BDE, tener una aplicación que cree los alias.
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.

[jsc]

gracias marcoszorrilla,
lo que propoines entonces es generar otra aplicacion una vez instalado el bde y ejecutarla para configurar el bde;
yo he estado haciendo pruebas con el installshield que incluye delphi5 donde puedes generar un autoinstalable y decirle los paquetes que quieres instalar, las bds, documentos... se puede especificar el lugar de instalacion... y se supone que se pueden generar los alias para configurar el bde; la cuestion es que no consigo que funcione
tu propuesta me parece buena, pero sabes algo sobre el poder generar un ejecutable tipo setup.exe que ya lo hiciera? queda mas profesional, con ventanas de instalacion, seleccion de direcctorio de instalacion, fichero leeme, fichero licencia...
sino, probare lo que me indicas que como te digo, te agradezco la propuesta enormemente