Acessar tabela DB/DBF no diretório do EXE no Delphi

Inclua na seção uses:SysUtils

Problema:

Gostaria de acessar tabelas DB/DBF que estão no diretório do 
EXE sem ter que criar um alias no BDE. Como fazer?



Solução:
No evento BeforeOpen do Table coloque o código abaixo:

procedure TForm1.Table1BeforeOpen(DataSet: TDataSet);
begin
  Table1.DatabaseName :=
    ExtractFilePath(ParamStr(0));
end;

Observações

Este procedimento não dispensa o BDE, mas apenas a criação do Alias.