Автор: Eryk Bottomley
var
d : TDataBase;
begin
d := TDataBase.Create(Application);
d.DataBaseName := 'PRIV';
d.DriverName := 'STANDARD';
d.Params.Add('PATH='+Session.PrivateDir);
d.Connected := True;
end;
|
...теперь вы имеете псевдоним с именем 'PRIV', указывающий на
частный каталог. |