Создание алиасов

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

procedure CheckAlias(const AliasName, AliasType, AliasPath: String);

{ Если алиас не существует, создать его }

var

SList: TStrings;

i: Integer;

AliasFound: Boolean;

begin

{ Проверка существования алиса BDE }

try

SList := TStringList.Create;

Session.GetAliasNames(SList);

AliasFound := False;

for i:=0 to SList.Count-1 do

if SList[i]=AliasName then

begin

AliasFound := True;

break;

end;

finally

SList.Free;

end;

if AliasFound then

begin

try

SList := TStringList.Create;

Session.GetAliasParams(AliasName,SList);

{А в 4-ой версии SList[2]!!! и без слова Path }

if SList[0] ‘PATH=’ AliasPath then { Правильно ли задан путь }

begin

SList[0] := ‘PATH=’ AliasPath;

Session.ModifyAlias(AliasName,SList);

end;

finally

SList.Free;

end;

end

else

Session.AddStandardAlias(AliasName,AliasPath,AliasType); { Создать новый алиас }

Session.SaveConfigFile;

end;

{/codecitation}

Добавить комментарий