Fórum ALIAS... #169094
12/07/2003
0
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
Curtir tópico
+ 0
Responder
Posts
13/07/2003
Edilcimar
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
Responder
Gostei + 0
13/07/2003
Jhonathas
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)