Jason Aller Floppy Collection/341.img/TCS161S.ZIP/PROCESS1.PAS

Pascal/Delphi Source File | 1989-10-08 | 265b | 11 lines

  procedure processfile(fn,todir:lstr);
  var fn1:lstr; util:integer;
  begin
    write(^P'  processing...');
    util:=pos('.',fn);
    if util=0 then fn1:=fn else fn1:=copy(fn,1,util-1);

exec(getenv('COMSPEC'),' /C PROCESS.BAT '+fn+' '+todir+' '+fn1);
  end;