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