判断ShellExecute函数是否执行完一个程序的方法

本文为原创，如需转载，请注明作者和出处，谢谢！

ShellExecute是windows的API函数，功能是执行可执行文件（exe）或任何关联文件（doc、txt、xls等）。但ShellExecute是异步执行的，也就是说，不管执行的程序是否成功运行，运行的时间是长是短，ShellExecute函数都会立即返回。这样虽然可以很好地完成执行程序的工作，但却会给后续的工作带来麻烦。
例如，当调用bcp命令向sql server导入数据后，在DBGrid中显示这些导入的数据。如果使用ShellExecute来直接执行bcp命令，很可能会在数据未完全导入时显示DBGrid。这样就会造成数据显示不完整或根本显示不出来数据。
要解决这个问题的方法就是使ShellExecute变成同步直接的，解决方法很多，例如，可以判断弹出的控制台窗口是否已关闭来确定bcp是否执行完。但这样做还会有一些问题，例如，如果执行根本没有弹出窗口的程序，那这种方法就不起作用了。而本书给出了另一种比较通用的方法。基本原理是利用了批处理文件的特性。虽然ShellExecute是异步执行的，但批处理是同步执行的，也就是在.bat、.cmd、.sh（linux/unix）中的命令是一个接一个顺序执行的。因此，我们可以采用在批处理文件中调用bcp命令的方法来实现同步调用。也就是说，可以在调用bcp之前，先中当前目录中建立一个文件或空目录，然后调用bcp，最后再删除这个文件或目录。这样可以通过判断文件或目录是否存在来确定bcp是否执行完成。为了确保在调用ShellExecute之前文件一定存在，可以在调用ShellExecute之前在程序中建立一个文件，在批处理中删除这个文件。下面是一个批处理文件的例子。

批处理文件名：bcp.cmd

<!--<br /> <br /> Code highlighting produced by Actipro CodeHighlighter (freeware)<br /> http://www.CodeHighlighter.com/<br /> <br /> -->set path = <bcp.exe的本地路径>/bcp.exe
bcp%1in%2%3%4其他命令行参数
deltemp.txt

假设我们使用delphi来通过ShellExecute函数来运行bcp命令，代码如下：

<!--<br /> <br /> Code highlighting produced by Actipro CodeHighlighter (freeware)<br /> http://www.CodeHighlighter.com/<br /> <br /> -->FileCreate("temp.txt");
ShellExecute(,"bcp.cmd",,);
whiletruedo
begin
iftemp.txt不存在then
begin
//bcp已成功执行
break;
end;
end;
//后续的处理代码

新浪微博手机客户端（Android/Ophone版）发布

《银河系列原创教程》发布

《Java Web开发速学宝典》出版，欢迎定购