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

您正在看的Powerbuilder教程是:在PB中调用外部尘迅程序并判断其运行结束

在PB中经常要调用外部程序并等待此程序运行结束后显示相关信息 如我们要备份Adaptive Server Anywhere 数据库 在备份结束后显示 备份完成！ 的提示信息 如果在调用备份铅虚程序dbbackup后马上用messagebox显示提示信息 那派激此么程序运行时则会出现这种情况 dbbackup备份程序还在运行 备份完成！ 的提示就已经显示了 显然不符合我们的设想 对于这种情况 我们可以借助API函数FindWindowA() IsWindow()和PB本身函数yield()来解决

声明API函数

Function long FindWindowA (String lpClassName String lpWindowName ) Library user dll Function boolean IsWindow (Long hwnd ) Library user dll

调用

ulong ll_handle int li_loop

SetPointer(HourGlass!) //设置鼠标指针 //运行备份数据库程序dbbackup 并使其最小化 run( dbbackup c ~ uid=dbapwd=sqldbf=D:\Sybase\Adaptive Server Anywhere \asademo db~ d:\backup Minimized!)

lishixinzhi/Article/program/PB/201311/24551

PB调用外部程序及判断其完成的方法

关键：API函数FindWindowA和IsWindow

在PB中常常需要运行一些外部的程序或命令，并等待其执行完成后，才接下来运行剩余的代码。我们可以有两种方法：

先定义全局外部函数：

Function long ShellExecuteA (long hwnd, string lpOperation ,String lpFile, String lpParameters, String lpDirectory, Long nShowCmd) Library "shell32.dll"

Function long FindWindowA (String lpClassName , String lpWindowName ) Library "user32.dll"

Function boolean IsWindow (Long hwnd ) Library "user32.dll"

第一种方式用Run() 函数，可在窗口上建立按扭，clicked事件中包含如下Script:

ulong ll_handle

int li_loop

SetPointer(HourGlass!)

//最小化执行xxx.bat

run("xxx.bat", Minimized!)

//循环到窗口打开，根据程序执行打开所需的时间设定li_loop的循环次数，可预留长一些。

for li_loop= 1 to 10000

ll_handle = FindWindowA("tty","xxx")

yield() //和脊函数作用详见“PB技巧”中《Pb中Yield()函数的使用》

if ll_handle <>0 then

exit

end if

next

//一直循环到窗口关闭

Do While isWindow(ll_handle)

Yield()

Loop

//应用执行完成

messagebox(‘ok’, ‘执行完成!’)

这种方法的缺点是不能隐藏外部应用程序窗口，核中只能最小化。

第二种方式用API函数，可以隐藏应用程序的窗口，但是调用bat批处理命令时需要先建立一个PIF文件指定执行完成后关闭窗口，否则窗口不会自行关闭。可在窗口上建立按扭，clicked事件中包含如下Script:

uint lu_return

ulong ll_handle

int li_loop

string ls_Path

SetPointer(HourGlass!)

lu_return = ShellExecutea(handle(parent), "open", "xxx.pif", "", ls_path, 0)

//最后一个参数改为 4，可以显示执行情况

if lu_return >32 then

for li_loop= 1 to 10000

ll_handle = FindWindowA("tty","xxx")

yield()

if ll_handle <>0 then

exit

end if

next

//一直循环到窗口关闭

Do While isWindow(lu_handle)

Yield()

Loop

//应用执行完成

MessageBox("ok", "执行完成!")

Else

//error

messagebox("错误", "调用外部应用程序不成功改棚山，请检查应用程序路径！")

end if

这个需纤蚂要钩子，系统层毁扒埋的，PB好像不擅长这个，C语言可以

一定要做这种，可以利此樱用ini配置文件或者注册表之类的，exe启动设置值，关闭设置另一个值

另一个监控软件在用time事件每隔几秒查询这个数值，发现关闭就run函数调用

---