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', указывающий на частный каталог.
- Eryk Bottomley [000871]