我有如下cmd语句需要执行,但是不知如何能执行完一条后,第二条再开始。
m:='/k copy '+m+' '+n+' && d:';
ShellExecute(handle,'open','cmd.exe',pchar(m),nil,SW_SHOWNORMAL);
m:='/k cd 新建文件夹\btorrenttracker\BitTorrent-3.2.1b';
ShellExecute(handle,'open','cmd.exe',pchar(m),nil,SW_SHOWNORMAL);
m:='/k python btmakemetafile.py '+n+' http://10.1.90.251:6969/announce';
ShellExecute(handle,'open','cmd.exe',pchar(m),nil,SW_SHOWNORMAL);
m:='/k copy '+p+' '+q+' && del '+p;
ShellExecute(handle,'open','cmd.exe',pchar(m),nil,SW_SHOWNORMAL);
我用了try finally 、try except但都没有效果,望各位大虾能帮忙看看该怎么办~~~多谢
m:='/k copy '+m+' '+n+' && d:';
ShellExecute(handle,'open','cmd.exe',pchar(m),nil,SW_SHOWNORMAL);
m:='/k cd 新建文件夹\btorrenttracker\BitTorrent-3.2.1b';
ShellExecute(handle,'open','cmd.exe',pchar(m),nil,SW_SHOWNORMAL);
m:='/k python btmakemetafile.py '+n+' http://10.1.90.251:6969/announce';
ShellExecute(handle,'open','cmd.exe',pchar(m),nil,SW_SHOWNORMAL);
m:='/k copy '+p+' '+q+' && del '+p;
ShellExecute(handle,'open','cmd.exe',pchar(m),nil,SW_SHOWNORMAL);
我用了try finally 、try except但都没有效果,望各位大虾能帮忙看看该怎么办~~~多谢
解决方案 »
- 用代码控制sql server服务启动与停止
- 关于指针内存的释放?
- 隐藏进程时遇到的奇怪问题
- Borland公司出大事了
- 请问下当我们调用TForm1.create(Self)创建窗体的时候,delphi是在哪里,什么时候,哪个函数来创建窗体的?
- 各位大侠请帮我解决一各问题
- 自定义查询的问题!
- 小第在此问一个ASP的问题。详情请看这本来简单,可我是初学者所以在此向大家提出
- 怎样把一外部程序设为当前程序(就是让它得到焦点)。
- 大虾们 在delphi7使用easygrid 中遇到一个问题,请教下easygrid使用怎么刷新?换下日期,表头的第一行怎么不会重新合并?谢谢!
- 怎样在表中一列的所有数据前面都加些字母?
- 搜索内存流? 高手请进!
楼上的大虾说的我不是很理解是什么意思,愿闻其详
m:='/k copy '+m+' '+n+' && d: && cd 新建文件夹\btorrenttracker\BitTorrent-3.2.1b && python btmakemetafile.py '+n+' http://10.1.90.251:6969/announce && copy '+p+' '+q+' && del '+p;
ShellExecute(handle,'open','cmd.exe',pchar(m),nil,SW_SHOWNORMAL);
但执行的结果极其离奇,不论是我的目标文件还是源文件的路径再执行的时候,斜杠字符“\”都回莫名其妙的消失,我用F7单步执行,发现所有变量均正常,且能正确传入shellexecute中。但是执行时,就无法正确进行。本来我也没发现这个问题,这个小程序我连了个数据库,在查看数据库时无意发现插入数据(变量n)的串里竟然都没有“\”字符,不知是不是由于串过长,在命令行里不能正确操作,因此才想把它拆开。然后按顺序执行
用.BAT或者.CMD吧
多谢楼上几位的回复,散分。