怎样在PB中调用外部程序并判断其运行结束？-数据库专栏,其他相关

在pb中经常要调用外部程序并等待此程序运行结束后显示相关信息。如我们要备份adaptive server anywhere 6.0数据库，在备份结束后显示”备份完成！”的提示信息，如果在调用备份程序dbbackup后马上用messagebox显示提示信息，那么程序运行时则会出现这种情况： dbbackup备份程序还在运行，”备份完成！”的提示就已经显示了，显然不符合我们的设想。对于这种情况，我们可以借助api函数findwindowa()、iswindow()和pb本身函数yield()来解决。

声明api函数：

function long findwindowa (string lpclassname , string lpwindowname ) library “user32.dll”

function boolean iswindow (long hwnd ) library “user32.dll”

调用：

ulong ll_handle

int li_loop

setpointer(hourglass!) //设置鼠标指针

//运行备份数据库程序dbbackup，并使其最小化

run(“dbbackup -c ~”uid=dba;pwd=sql; dbf=d: ybase\adaptive server anywhere 6.0\asademo.db~” d:\backup”, minimized!)

ll_handle = 0

//循环至dbbackup窗口打开

do while ll_handle = 0

ll_handle = findwindowa(“tty”,”dbbackup”)

yield() //

loop

//等待dbbackup窗口关闭

do while iswindow(ll_handle)

yield() 

loop

//应用执行完成
messagebox(“提示信息”, “备份完成!”)