casi lo mismo.....
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.
|