Detecção de alias
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
Curtidas 0
Respostas
Rafael Roni
21/10/2003
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.
GOSTEI 0