判断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

set path = <bcp.exe的本地路径>/bcp.exe
bcp %1 in %2 %3 %4 其他命令行参数
del temp.txt

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

FileCreate("temp.txt");
ShellExecute(,"bcp.cmd",,);
while true do
begin
   if temp.txt不存在 then
   begin 
      //  bcp已成功执行
       break;
   end;
end;
//  后续的处理代码