外部
并等待此运行结束后显示相关信息
如我们要备份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
li_loop SetPo
er(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("提示信息", "备份完成!")
最新评论