Delphi World - Изменение каталога псевдонима во время выполнения приложения

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

Изменение каталога псевдонима во время выполнения приложения

Я делаю это все время. У меня есть INI-файл, который сообщает, где можно найти таблицы и каталоги их расположения. Вот как я это делаю:

procedure CheckTable(var Table: TTable; var TName: string);
var
  ChangePath: boolean;
  Path: string;
  ActiveState: Boolean;
begin
  if (TName = '') then
    TName := Table.TableName
  else
    with Table do
    begin
      ActiveState := Active;
      Close;
      Path := ExtractFilePath(TName);
      ChangePath := HasAttr(DatabaseName, faDirectory) or
        (CompareText(DatabaseName, Path) <> 0);
      if (Length(Path) > 0) and ChangePath then
        DatabaseName := Path;
      if (CompareText(ExtractFileName(Tname), TableName) <> 0)
        then
        TableName := ExtractFileName(Tname);
      Active := ActiveState;
    end;
end;