【PB】在PB中調用外部程式並判斷其運行結束

在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("提示資訊", "備份完成!")