Criar Alias por codigo

véio,no baixaqui existe um programinha chamado delphiboy que ensina criar alias em tempo de execução, e se naum me engano no site dele, tem um help com 700 dicas que fala a mesma coisa....
oK?

:twisted: Julien Murray:twisted:

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´, ´MSACCESS´);
{ Salva o arquivo de configuração do BDE }
Session.SaveConfigFile;
end;
Para criar um alias do dBase troque a string ´PARADOX´ por ´DBASE´ ou ´MSACCESS´, e assim vai indo.... 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