Имитация псевдонима PdoxWIN PRIV

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: 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’, указывающий на частный каталог.

{/codecitation}

Добавить комментарий