Fórum Detecção de alias #189962
21/10/2003
0
Caros Colegas ;
Quero implementar no oncreate do form inicial do meu sistema , uma rotina que verifica se tal alias existe , se por algum motivo o mesmo não existir , exiba uma mensagem : Alias Não existe , e logo em seguida abra um form pro user cadastrar o nome do alias o path e pronto alias criado !
Tem Como fazer isto ?
Quero implementar no oncreate do form inicial do meu sistema , uma rotina que verifica se tal alias existe , se por algum motivo o mesmo não existir , exiba uma mensagem : Alias Não existe , e logo em seguida abra um form pro user cadastrar o nome do alias o path e pronto alias criado !
Tem Como fazer isto ?
Tiagojmilam
Curtir tópico
+ 0
Responder
Posts
21/10/2003
Rafael Roni
Inclua na seção uses: DB
{ se o alias não existir... }
if not Session.IsAlias(´MeuAlias´) then
begin
Showmessage(´O Alias nao existe´);
{ Adiciona o alias }
Session.AddStandardAlias(´MeuAlias´, ´C:\DirProg´, ´PARADOX´);
{ Salva o arquivo de configuração do BDE }
Session.SaveConfigFile;
end;
Para criar um alias do dBase troque a string ´PARADOX´ por ´DBASE´. 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 esta o executavel.
Peguei essa dica de um Help e funciona perfeitamente.
{ se o alias não existir... }
if not Session.IsAlias(´MeuAlias´) then
begin
Showmessage(´O Alias nao existe´);
{ Adiciona o alias }
Session.AddStandardAlias(´MeuAlias´, ´C:\DirProg´, ´PARADOX´);
{ Salva o arquivo de configuração do BDE }
Session.SaveConfigFile;
end;
Para criar um alias do dBase troque a string ´PARADOX´ por ´DBASE´. 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 esta o executavel.
Peguei essa dica de um Help e funciona perfeitamente.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)