Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Удалить или оставить симолы
   Категория: Текст и строки
  Как подключить или отключить сетевой диск
   Категория: Интернет и Сети
  Wav файл внутри exe-файла
   Категория: Файловая система
  Сохранение странички в файл из TWebBrowser
   Категория: Интернет и Сети
  Компоненты Panel, GroupBox, Bevel, ScrollBox, Splitter
   Категория: Компоненты
  Как создать ярлык
   Категория: Приложение
  Компонент PopupMenu
   Категория: Компоненты
  Создать таблицу ABS (AbsoluteDB)
   Категория: Базы данных
Delphi - База Знаний: BDE. Динамическое создание псевдонима

  << Вернуться к Содержанию  

procedure TForm1.FormActivate(Sender: TObject);
begin
  with Session do
   begin
     ConfigMode := cmSession;
     try
       AddStandardAlias( 'alph',
                         ExtractFilePath(ParamStr(0)),
                         'paradox');
       Table1.Active:=True;
             AddStandardAlias( 'tema',
                         ExtractFilePath(ParamStr(0)),
                         'paradox');
       Table2.Active:=True;
     finally
      ConfigMode := cmAll;
     end;
end;
  << Вернуться к Содержанию