{ **** 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;