【PB】在PB中调用外部程序并判断其运行结束
来源:互联网 发布:正装皮鞋牌子 知乎 编辑:程序博客网 时间:2024/04/28 19:11
在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("提示信息", "备份完成!")
- 【PB】在PB中调用外部程序并判断其运行结束
- 怎样在PB中调用外部程序并判断其运行结束?
- 怎样在PB中调用外部程序并判断其运行结束?
- 在PB中调用外部程序并判断其运行结束
- 在PB中调用外部程序并判断其运行结束
- Delphi 调用外部程序并等待其运行结束
- Delphi 调用外部程序并等待其运行结束
- Delphi 调用外部程序并等待其运行结束
- Delphi调用外部程序并等待其运行结束
- Delphi 调用外部程序并等待其运行结束
- [delphi]调用外部程序并等待其运行结束
- 在PB中调用外部函数
- 当在程序中运行DOS命令时如何隐藏DOS窗口并判断其结束
- 在PB中防止程序二次运行
- 在PB中防止程序二次运行
- 如何让Delphi调用外部程序并等待其运行结束
- 如何让Delphi调用外部程序并等待其运行信息(如结束)
- 如何让Delphi调用外部程序并等待其运行信息(如结束)
- JS实现进度条效果
- 今天开始博客写代码~
- 《深入浅出MFC》书中DECLARE_DYNAMIC/IMPLEMENT_DYNAMIC宏的详细解释
- Android Dependencies
- Android上使用Canvas绘制文字
- 【PB】在PB中调用外部程序并判断其运行结束
- 离我们很远?NFC的实际用途测试。
- 三层架构(概念)
- 盘点2012年我们一起关注的NFC创新应用
- sqlserver事务的用法
- NFC:除了移动支付 我还能干这些!
- struts2升级注意几点
- Log and data area are not compatible because 'Restart position not found
- Java将一段逗号分割的字符串转换成一个数组