Delphi World - Создание псевдонима базы данных с указанием пути к каталогу с базой
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Создание псевдонима базы данных с указанием пути к каталогу с базой

Автор: Александр
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Создание псевдонима базы данных с указанием пути к каталогу с базой

Данная процедура создает нужный псевдоним (Alias), если он не существует, для
базы данных, прописывает путь к базе данных. Если такой псевдоним существует,
то проверяется его соответствие заданным параметрам.

Зависимости: DBTables
Автор:       Александр, rda@im.net.ua, Мелитополь
Copyright:   Help Delphi
Дата:        28 апреля 2002 г.
***************************************************** }

procedure Create_Alias;
var
  AParams: TStringList;
  Dir: string;
begin
  Dir := ExtractFilePath(ParamStr(0)) + 'BASE'; //Путь к базе. В данном случае
  //это \Каталог программы\BASE
  AParams := TStringList.Create;
  if not Session.IsAlias('cssm') then //Проверка существования псевдонима
    //cssm
  begin
    Session.AddStandardAlias('cssm', Dir, 'PARADOX');
  end
  else
  try
    begin
      AParams.Clear;
      AParams.Add('PATH=' + Dir);
      Session.ModifyAlias('cssm', AParams);
      Session.SaveConfigFile;
    end;
  finally
    AParams.Free;
  end;
end;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования