Alias aus Delphi dauerhaft in der BDE setzen

[ralli]

Hallo,

ich möchte zur Laufzeit aus Delphi einen alias dauerhaft in der BDE setzen. Habe ausgiebig in den Foren recherchiert, nichts funktionierte bei mir. Dann habe ich in der BDE - Api gesucht und habe eine Teillösung gefunden.

Code:

procedure TForm1.Button2Click(Sender: TObject);

var Aliasname : PChar;

var Aliaspfad : PChar;

begin

Check(DbiInit(nil));

Aliasname := 'testalias';

Aliaspfad := 'PATH:C:\Temp';

Check(DbiAddAlias(nil, PChar(Aliasname), 'PARADOX', PChar(Aliaspfad),True));

end;

Der Alias taucht in der BDE mit den richtigen Parametern auf, aber leider nur temporär. Sobald ich das Programm, was den Alias setzte, beende, ist auch der Alias in der BDE verschwunden. Was mache ich falsch ? Der Alias sollte dauerhaft in der BDE Konfigurationsdatei gespeichert sein, damit er allen anderen Anwendungen zur Verfügung steht.

Ralph

[SirThornberry]

Dann gib diesen Alias doch direkt in der BDE ein

[ralli]

Hallo, es geht folgendermaßen:

Code:

Session.ConfigMode :=  [cfmPersistent];
Session.AddStandardAlias('Testalias','C:\Temp', 'Paradox');

// Mit dieser Methode wird der Alias dauerhaft in der BDE gespeichert !

Session.SaveConfigFile;

Ralli