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

Благодарю за поддержку!

		Новости сайта
		Новости форума

Архив исходников

Automatic translation

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

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

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