转载地址:http://blog.csdn.net/hutao1101175783/article/details/42807063 cmd:='echo d | Xcopy '+BasePath+' '+TargetPath+' /s/e'; i:=ShellExecute(Handle,nil,'cmd.exe',PChar('/K '+cmd),nil,SW_HIDE); ShellExecute(Handle,nil, 'cmd.exe',pchar('/C '+GetCurrentDi