代码如下：我运行成功的 {$M $4000,0,0 } Uses Dos; var path:string; Begin {readln(path);} {涂过你想要自己输入路径的话就用这就句} path:='C:\1.exe'; SwapVectors; Exec(path, ''); SwapVectors; End.
