在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!)