ALIAS...
Este código gera o Alias via programação, então você pode fazer dentro da sua aplicação mesmo.:
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;
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. QUERO UMA COISA PARA INCREMENTAR DENTRO DO MEU PROGRAMA !
COMO FAZER PARA CRIAR UM ALIAS QUE SIGA O LOCAL DE INSTALAÇÃO do SOFTWARE ?
Rodrigo!
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;
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. QUERO UMA COISA PARA INCREMENTAR DENTRO DO MEU PROGRAMA !
COMO FAZER PARA CRIAR UM ALIAS QUE SIGA O LOCAL DE INSTALAÇÃO do SOFTWARE ?
Rodrigo!
Ropesca
Curtidas 0
Respostas
Edilcimar
12/07/2003
Crie um arquivo ini pegando o diretório escolhido
Ex: c:\windows\meuprograma.ini
lá você pode ler o diretório escolhido, e uma vez que ninguém exclui o diretório windows, é um bom local
Ex: c:\windows\meuprograma.ini
lá você pode ler o diretório escolhido, e uma vez que ninguém exclui o diretório windows, é um bom local
GOSTEI 0
Jhonathas
12/07/2003
Pessoal ai está o código para criar Alias com o caminho altomatico.
procedure Alias();
var
Caminho: String;
begin
Caminho := ExtractFilePath(Application.ExeName);
Session.Close;
Session.Open;
Session.DeleteAlias(´MeuAlias´);
Session.AddStandardAlias(´MeuAlias´,caminho,´Paradox´);
Session.SaveConfigFile;
Session.Close;
Session.AddPassword(´casotenhapasswordboteaqui´);
Session.Open;
end;
procedure Alias();
var
Caminho: String;
begin
Caminho := ExtractFilePath(Application.ExeName);
Session.Close;
Session.Open;
Session.DeleteAlias(´MeuAlias´);
Session.AddStandardAlias(´MeuAlias´,caminho,´Paradox´);
Session.SaveConfigFile;
Session.Close;
Session.AddPassword(´casotenhapasswordboteaqui´);
Session.Open;
end;
GOSTEI 0