Verificar se um Alias existe caso não exista cria-lo

Delphi

04/06/2004

Olá gostaria de saber se alguem pode me ajudar, preciso de uma rotina que verifique se o Alias existe se ele não existir cria - lo, a base é Paradox


Semchance

Semchance

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

04/06/2004

Colega,

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;



GOSTEI 0
POSTAR