Criado Alias via programação

Inclua na seção uses: DB

{ se o alias não existir... }

if not Session.IsAlias('MeuAlias') then

begin

{ Adiciona o alias }

Session.AddStandardAlias('MeuAlias', 'C:\DirProg', 'PARADOX');

{ Salva o arquivo de configuração do BDE }

Session.SaveConfigFile;

end;

Para criar um alias do dBase troque a string 'PARADOX' por 'DBASE'. No caso acima usei como path o caminho "C:\DirProg", mas se você quiser poderá trocar este caminho por ExtractFilePath(ParamStr(0)) para que o alias seja direcionado para o local onde est