本文为原创,如需转载,请注明作者和出处,谢谢!
注意:本文讨论的是使用ShellExecute函数同步执行exe或其他可执行文件,本文只是介绍了一个技巧,虽然可以使用ShellExecuteEx函数以及WaitForSingleObject等方法实现同步执行,但在不会使用ShellExecuteEx函数的情况下,也不失为一种救急的解决方案。
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
bcp % 1 in % 2 % 3 % 4 其他命令行参数
del temp.txt
假设我们使用delphi来通过ShellExecute函数来运行bcp命令,代码如下:
ShellExecute(, " bcp.cmd " ,,);
while true do
begin
if temp.txt不存在 then
begin
// bcp已成功执行
break ;
end;
end;
// 后续的处理代码