Получаем информацию о псевдонимах BDE


var
MyAliasPath: string;
const
AliasName = ′MyAlias′;

{**** Получаем из BDE путь MyAlias}

ParamsList := TStringList.Create;

try
with Session do
begin
Session.GetAliasNames(ParamsList);
Session.GetAliasParams(AliasName, ParamsList);
MyAliasPath := Copy(ParamsList[0], 6, 50) + ′′;
end;
finally
ParamsList.Free;
end;



Опубликовал admin
11 Мар, Вторник 2008г.



Программирование для чайников.