Текущий архив: 2005.12.25;
Скачать: CL | DM;

Вниз

Псевдонимы...   Найти похожие ветки 

← →
makvell   (2005-11-08 09:28) [0]

Пишу примерно следующее:

Var
 ALLAlias: TStringList;
 Y: boolean;
 i: integer;
Begin
 Y:=false;
 ALLAlias:=TStringList.Create;
 //Получаю список всех псевдонимов
 Session.GetAliasNames(AllAlias);
 //Проверяю есть ли такокой какой нужен
 for i:=0 to AllAlias.Count-1 do
   if  AllAlias.Strings[i]=AName then
     y:=true;

 AllAlias.Free;

 if Y then exit
 else
   //Создаю псевдоним
   With Session do
     begin
     ConfigMode:=cmSession;
     AddStandardAlias(AName, APath, "PARADOX");
     SaveConfigFile;
     ConfigMode:=cmAll;
     end;

Но!!! После закрытия программы он не сохраняется.
Как оставить его зарегистрированным?
Заранее спасибо.

---

← →
Digitman ©   (2005-11-08 09:35) [1]

сначала нужно установить соответствующий ConfigMode, и только после этого вызывать SaveConfigFile

---

← →
makvell   (2005-11-08 09:37) [2]

Спасибо!
Ну и может быть тогда сразу спросить:
Какой?

---

← →
makvell   (2005-11-08 09:44) [3]

Все, все, все... Спасибо, уже исправил.

---

Страницы: 1 вся ветка

Текущий архив: 2005.12.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.04 c