怎样在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:\Sybase\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(" 提示信息 ", " 备份完成 !")

Published At
Categories with 数据库类
Tagged with
comments powered by Disqus