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

Советы » Alias » Создание алиасов

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com