BDE Delphi 6 + Win Vista nada de Alias

[[egostar]]

Para inicializar una base de datos paradox esto es lo que yo hago en tiempo de ejecución y sin usar Alias de la base de datos, es obvio que se requiere que el BDE esté instalado:

1. Crear una Archivo INI con el nombre de tu aplicacion (y en el mismo directorio) de esta forma:

Aplicación = Menu.exe
Archivo INI = Menu.INI

2. Dentro del INI pones lo siguiente:

[Datos]
RutaRed=\HOST
RutaLocal=C:\Desarrollo\TDelphi\egostar\
Ruta=Tables\
Ruta PrivateDir=Private\
Ruta net=Network\
Servidor=SI

3. En un DataModule mete este código (en el evento OnCreate).

Código Delphi [-]
procedure TDataModule1.DataModuleCreate(Sender: TObject);
var
  ruta,servidor,rutaprivate,rutanet,rutaRed,rutaLocal : string;
begin
  with tinifile.create (changefileext(paramstr(0),'.INI')) do
  try
    rutaRed     := readstring ('Datos', 'RutaRed', '');
    rutaLocal   := readstring ('Datos', 'RutaLocal', '');
    servidor    := readstring ('Datos', 'Servidor', '');

    if uppercase (servidor) <> 'NO' then begin
       ruta        := rutaLocal + readstring ('Datos', 'Ruta', '');
       rutanet     := rutaLocal + readstring ('Datos', 'Ruta net', '');
       rutaprivate := rutaLocal + readstring ('Datos', 'Ruta PrivateDir', '');
    end
    else begin
           ruta        := rutaRed + readstring ('Datos', 'Ruta', '');
           rutanet     := rutaRed + readstring ('Datos', 'Ruta net', '');
           rutaprivate := rutaRed + readstring ('Datos', 'Ruta PrivateDir', '');
         end;
  finally
  end;

  with DataBase1 do begin

     with Session1 do begin
        NetFileDir := rutanet;
        PrivateDir := rutaprivate;
     end;

    Params.Clear;
    Params.Add('LOCAL SHARE=FALSE');
    Params.Add('PATH=' + RUTA);
    Params.Add('DEFAULT DRIVER=PARADOX');
    Params.Add('ENABLE SCHEMA CACHE=TRUE');
    Params.Add('ENABLE BCD=FALSE');

    Connected := true;
  end;
end;

Tal vez eso te solucione el problema inmediato, pero ten muy en cuenta lo que te comenta [Al González] (Con acento )

Salud OS