Создание алиасов

procedure
 CheckAlias(const
 AliasName, AliasType, AliasPath: String
); 
{ Если алиас не существует, создать его } 
var
 
  SList: TStrings; 
  i: Integer; 
  AliasFound: Boolean; 
begin
 
  { Проверка существования алиса BDE } 
  try
 
    SList := TStringList.Create; 
    Session.GetAliasNames(SList); 
    AliasFound := False
; 
    for
 i:=0 to
 SList.Count-1 do
 
      if
 SList[i]=AliasName then
 
        begin
 
          AliasFound := True
; 
          break; 
        end
; 
  finally
 
    SList.Free; 
  end
; 
  if
 AliasFound then
 
    begin
 
      try
 
        SList := TStringList.Create; 
        Session.GetAliasParams(AliasName,SList); 
        {А в 4-ой версии SList[2]!!! и без слова Path } 
        if
 SList[0]< > 'PATH='+AliasPath then
 { Правильно ли задан путь } 
          begin
 
            SList[0] := 'PATH='+AliasPath; 
            Session.ModifyAlias(AliasName,SList);
          end
; 
      finally
 
        SList.Free; 
      end
; 
    end
 
  else
 
    Session.AddStandardAlias(AliasName,AliasPath,AliasType); { Создать новый алиас } 
  Session.SaveConfigFile; 
end
;

Другое по теме:

• Динамически создаваемые псевдонимы
• Добавление псевдонима с помощью функции DbiAddAlias
• Задание псевдонима программным путем