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;
// 后续的处理代码