084 - Alterando Idapi32.Cfg Via Programa

Check(DbiAddAlias(Nil, PChar(' AliasName '), Nil, PChar(' AliasPath'), True));
Substitua AliasName pelo nome do alias que você quer criar e em AliasPath pelo path dos arquivos de dados que você quer no seu alias.

Inclua na cláusula "USES" as units BD e BDE.

Complemento enviado por um colaborador:

procedure TForm1.AlterarClick(Sender: TObject);
var
AParams: TStringList;
caminho:string;
begin
caminho:='path=' + edit1.text;

if not Session.IsAlias('Teste') then
begin
Check(dbiInit(nil));
Check(dbiAddAlias(Nil, PChar('teste'), szParadox, PChar(caminho), True));
Check(DbiExit);
end;

AParams := TStringList.Create;
try
Session.GetAliasParams('Teste',AParams);
begin
AParams.Clear;
AParams.Add(caminho);
Session.ModifyAlias('Teste',AParams);
Session.SaveConfigFile;
end;
finally
AParams.Free;
end;
end;


Marco Aurélio Braun
Três Coroas - RS