Курсовая работа: Эмуляция командного процессора ОС UNIX в среде Windows 9x
WriteLn(s_or_f, s);
end;
Procedure Comm(comu:string);
var
fname1, fname2, f: string[80];
f1, f2: text;
s1, s2: string;
par: string[10];
r1, r2, i: integer;
b, v1, v2, v3: boolean;
begin
if Pos(' ', comu) = 0 then
begin
WriteLn('Не указаны параметры команды!');
Exit;
end;
Delete(comu, 1, 5);
if Pos(' ', comu) = 0 then
begin
WriteLn('Недостаточно параметров!');
Exit;
end;
par := '';
if Pos('-', comu) <> 0 then
begin
par := Copy(comu, 2, Pos(' ', comu) - 2);
Delete(comu, 1, Pos(' ', comu));
end;
fname1 := Copy(comu, 1, Pos(' ', comu) - 1);