判断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
bcp %1 in %2 %3 %4
![](http://www.blogjava.net/Images/dot.gif)
del temp.txt
假设我们使用delphi来通过ShellExecute函数来运行bcp命令,代码如下:
FileCreate("temp.txt");
ShellExecute(
![](http://www.blogjava.net/Images/dot.gif)
![](http://www.blogjava.net/Images/dot.gif)
while true do
begin
if temp.txt不存在 then
begin
// bcp已成功执行
break;
end;
end;
// 后续的处理代码