Как программно создать Alias 2

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

procedure CreateAlias();

const

DlPs = 5;

var

wrstr, wrstr1 :string;

AParams: TStringList;

Psevdonm: array [1..DlPs] of string;

i: integer;

begin

//Заполним массив

Psevdonm[1] := ‘TERMNNSI,NSI’; // имя,каталог

Psevdonm[2] := ‘TERMNBASE,BASE’;

Psevdonm[3] := ‘TERMNTNL,BASE\TNL’;

Psevdonm[4] := ‘TERMNARH,ARH’;

Psevdonm[5] := ‘TERMNTELE,TELE’;

// if not DirectoryExists(datapath) then begin

// createdir(datapath) ;

// end;

for i := 1 to DlPs do

begin

// Для начала проверим каталоги

wrstr1 := Copy(Psevdonm[i],Pos(‘,’,Psevdonm[i]) 1, Length(Psevdonm[i])-Pos(‘,’,Psevdonm[i]) 1);

if not DirectoryExists(wrstr1) then

begin

CreateDirectory(PChar(CurrntDir ‘\’ wrstr1),nil);

end;

// Если нет псевдонима, то создадим или подправим

wrstr := Copy(Psevdonm[i],1,Pos(‘,’,Psevdonm[i])-1);

if not Session.IsAlias(wrstr) then

begin

try

Session.AddStandardAlias(wrstr,wrstr1,’PARADOX’);

Session.SaveConfigFile;

except

SaveTekJrn(‘ERR:Ошибка создания алиаса — ‘ wrstr);

Exit;

end;

end;

//Настроим алиас

AParams := TStringList.Create;

AParams.Add(‘PATH=’ CurrntDir ‘\’ wrstr1);

Session.ModifyAlias(wrstr,AParams);

Session.SaveConfigFile;

// Освобождение списка

AParams.Free;

end;

end;

{/codecitation}

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