Criar um Alias através do seu programa - Delphi

//Criar um Alias através do seu programa

Função somente para banco de dados DBASE e PARADOX.

Inclua na seção uses: DB

Código:

{ 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;

Observações
Para criar um alias do dBase troque a string 'PARADOX' por 'DBASE'. No caso acima usei como base o Paradox