Псевдонимы...

← →
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]

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

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