本文整理自网络,侵删。
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 '+GetCurrentDir+'\build.bat'), nil, SW_HIDE);执行命令前面加“/K”,执行bat文件前面加"/C"还有就是 如果有的CMD命令执行后需要询问再输入参数才能继续执行,echo 参数 |
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>