Fórum ALIAS #167748
03/07/2003
0
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;
[b:7bdb99f199]MInha dúvida é a seguinte... se vou fazer um programa de instalaçao para meu software, e eu colocar esta rotina de criação de ALIAS dentro do meu programa, e depois a pessao no instalador escolher outro local para instalaçao sem ser o que eu configurei no código do programa, então ele não vai funcionar.
COMO FAZER PARA CRIAR UM ALIAS QUE SIGA O LOCAL DE INSTALAÇÃO do SOFTWARE ?[/b:7bdb99f199]
Rodrigo!
Ropesca
Curtir tópico
+ 0Posts
04/07/2003
Jeancamila
Jean
Gostei + 0
04/07/2003
Ropesca
Rodrigo!
Gostei + 0
04/07/2003
Jairroberto
Se o diretório do alias for sempre o diretório onde está o aplicativo, basta alterar o seu código para:
Session.AddStandardAlias(´MeuAlias´, ExtractFilePath(ParamStr(0)), ´PARADOX´);
Há também outra solução mais simples do que criar um alias no BDE para acessar os arquivos. Basta adicionar um componente TDatabase no formulário principal do seu aplicativo, configurá-lo de acordo com o banco de dados que você irá acessar e configurar também a propriedade Params para:
Database1.Params.Values[´PATH´] := ExtractFilePath(ParamStr(0));
Um abraço,
Jair
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)