Автор: Александр
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;