Fórum alias quot;Urgentequot; ! ! ! #142890

procedure SetAliasPath(Const sAlias, sPath : String);
var
oAliasParam : TStringList;
sPathAtual : String;
begin
//Inicializar o Bde;
dbiInit(nil);
//se alias nao existe, entao iremos criar
if not Session.IsAlias(sAlias) then
begin
Session.AddStandardAlias( sAlias, sPath, ´Paradox´ );
Session.SaveConfigFile;
end //se existe o alias, entao vamos alterar o path do Alias
else begin
with Session do begin
oAliasParam := TStringList.Create;
//Obter Parâmetros do Alias
GetAliasParams( sAlias, oAliasParam );
//pega o path antigo
sPathAtual := oAliasParam[0];
//coloca o novo path
oAliasParam[0] := ´PATH=´+sPath;
//fazer a alteraçao 
Session.ModifyAlias( sAlias, oAliasParam );
//gravar as alteraçoes
Session.SaveConfigFile;
{ disconnect TSession to refresh changes }
Session.DropConnections;
end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//Parâmetro: Alias, Diretório do Banco de dados
SetAliasPath(´Lixo´,´c:\lixo2´);
//Pronto Sr. Valdinei, está aqui o que lhe prometi, fiz isto em 40min.
//nao precisei utilizar chamadas direta ao BDE, apenas usei o Session.
end;