你需要用DOS单元。DOS单元用法:program example;uses dos;beginexec('程序名.exe','程序参数(可选)');end.第一个程序:program file1;uses dos;var s,s2,s3:string;beginwriteln('Input Filename');readln(s);writeln('Input Target File Name End By .rar');readln(s2);s3:=' a '+s2+' '+s;Exec('C:\Program Files\Winrar\rar.exe',s3);end....