Курсовая работа: Эмуляция командного процессора ОС UNIX в среде Windows 9x

if p then

keys := ' |more';

if cmd1[Length(cmd1)] <> '\' then

begin

comu := cmd1;

Delete(comu, 1, 3);

if Pos('-', comu) <> 0 then

begin

if Pos(' ', comu) = 0 then

pos1 := Length(comu)

else

pos1 := Pos(' ', comu);

Delete(comu, 1, pos1);

end;

if comu = '' then

Ls(cmd1 + ' ' + Info.Name + keys)

else

Ls(cmd1 + '\' + Info.Name + keys);

end

else

Ls(cmd1 + Info.Name + keys);

end;

end;

FindNext(Info);

until DosError <> 0;

WriteLn(s_or_f);

Inc(k);

end;

Procedure Diff(comu: string);