怎样在PB中调用外部程序并判断其运行结束?

王朝other·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航