Курсовая работа: Эмуляция командного процессора ОС UNIX в среде Windows 9x
end;
n := 0;
if Info.Name = '.' then
FindNext(Info);
repeat
if (DosError = 0) and (Info.Name <> '..') then
begin
if Info.Attr <> $10 then
begin
Inc(n);
f[n] := Info.Name;
end;
end;
FindNext(Info);
until DosError <> 0;
end;
begin
if Pos(' ', cnp) = 0 then
begin
WriteLn('Необходимо задать параметры!');
Exit;
end;
Delete(cnp, 1, 7);
n := 72;
keys := '';
if Pos('-', cnp) <> 0 then
begin
if Pos(' ', cnp) = 0 then
pos1 := Length(cnp)