ulong ll_handle
Int li_loop
String ls_path,ls_file_path,ls_class
SetNull(ls_class)
SetPointer(HourGlass!)
cb_backup.text='正在备份...'
cb_backup.Enabled=False
//运行备份数据库程序dbbackup,并使其最小化
ls_file_path=is_source_dbpath+'\common_db.db'
ls_path=Trim(sle_backuppath.text)
IF Not FileExists(ls_file_path) THEN
MessageBox("数据备份","源文件不存在!")
Return
END IF
IF run("dbbackup -c ~"uid=dba;pwd=sql; dbf="+ls_file_path+" ~" + ls_path", Minimized!)=1 THEN
END IF
ll_handle = 0
//循环至dbbackup窗口打开
Do While ll_handle = 0
ll_handle = FindWindowA(ls_class,"dbbackup")
yield()
loop
MessageBox("",String(ll_handle))
// 等待dbbackup窗口关闭
Do While isWindow(ll_handle)
Yield()
Loop
//应用执行完成
cb_backup.text='备份完毕'
cb_backup.enabled=True
MessageBox("提示信息", "备份完成!")