¿Cómo conecto las tablas de paradox para crear un instalador con Inno Setup??

[nuri]

Hola a todos:
Puesto que con el InstallShield express no pude crear el instalador para mi aplicación he decidido usar el Inno Setup.
Se me ha creado perfectamente el ejecutable, el problema es que no me crea el alias y por lo tanto no me funciona mi aplicación en un ordenador que no lo tenga, leí en un hilo que con añadir el siguiente código al evento OnCreate del form principal de mi aplicación no era necesario crear el alias:

Código Delphi [-]
procedure TFormPrincipal.FormCreate(Sender: TObject);
var n:string;
begin
n:='COCHES';
If not session.IsAlias(n) Then
Begin
Try
Session.AddStandardAlias(n,'C:\Documents and Settings\Practicas\Mis documentos\Aplicación de Coches\BASES DE DATOS\','PARADOX');
Session.SaveConfigFile;
except
Application.MessageBox('Error Creando el alias','Atención',MB_OK);
Exit;
End;
End;
end;

¿Tengo que añadir algo al Inno Setup para que se ejecute mi aplicación sin problemas??
Tengo la versión 5.1.4.
Muchas gracias a quien pueda echarme un cable.
Atentamente
Nuri

[Neftali [Germán.Estévez]]

En ésta página tienes la información de lo que tienes que añadir a la instalación de Inno Setup para que se creen los Alias que necesitas en tu programa.

http://www.jrsoftware.org/iskb.php?bde

[German]

Tambien puedes pensar en la idea de dejar de utilizar alias. En vez de eso, puedes utilizar un componente tDataBase en tu aplicación, y "arrancarlo" utilizando el evento onCreate del Form (por ejemplo):

Código Delphi [-]
With DataBase1 do
 begin
  Params.Clear;
  Params.Add('PATH='+ExtractFilePath(Application.ExeName)+'BASES DE DATOS\');
  Params.Add('DEFAULT DRIVER=PARADOX');
  Params.Add('ENABLE BCD=FALSE');
  Connected := True;
 end;

Deberias sustituir el nombre del alias poner el nombre del tDataBase en cualquier lugar de tu aplicación en que aparezca.

Salu2.

[Phacko]

Que tal???

Pues bien yo he hecho esto y me ha funcionado muy bien:


procedure TForm1.FormCreate(Sender: TObject);
Var
TClientes, TProducto, TRepartidores: TTable;
begin
If Not Session.IsAlias('Carnic') Then
Begin
Try
Session.AddStandardAlias('Carnic',ExtractFilePath(ParamStr (0)),'PARADOX');
Session.SaveConfigFile;
Except
MessageDlg('No se puede crear la Base de Datos',mtError,[mbOK],0);
Exit;
End;
End;

Espero te sea util, buen día.

[nuri]

okis, muchas gracias a los tres, lo he conseguido, finalmente he usado las instrucciones de Inno Setup.

Mil gracias.
Hoy ya puedo dormir tranquila.
Bufffffffffffff k alivio
Mil bezazossssssssssssssssssssssssssss