Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/FILEAT.ZIP/EX.PAS

Pascal/Delphi Source File | 1993-01-04 | 340 b | 21 lines

{$m 2048,0,2048}

program execute;

uses dos;

var
   path,
   cmdline : string;
   i       : integer;

begin
   cmdline := '';
   if paramCount > 0 then
      begin
         path := paramStr(1);
         for i := 2 to paramCount do
            cmdline := paramStr(i) + ' ';
         exec(path,cmdline);
      end;
end.