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