|
|
|
|
Delphi 1
Имитация псевдонима PdoxWIN 'PRIV'
|
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]
|
|
|
|
|