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

转载 2012年03月31日 11:12:57

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

(加入日期:2001-6-21)

保存文章至硬盘】【打印文章】【字体:

分享到: 0
在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中经常要调用外部程序并等待此程序运行结束后显示相关信息。 如我们要备份Adaptive Server Anywhere 6.0数据库,在备份结束后显示"备份完成!"的提示信息,如果在调用备份程序...
  • onlypersevere
  • onlypersevere
  • 2009年09月17日 17:49
  • 197

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

在PB中经常要调用外部程序并等待此程序运行结束后显示相关信息。 如我们要备份Adaptive Server Anywhere 6.0数据库,在备份结束后显示"备份完成!"的提示信息,如果在调用备份程...
  • lijianhe043
  • lijianhe043
  • 2013年03月06日 17:27
  • 1656

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

在PB中经常要调用外部程序并等待此程序运行结束后显示相关信息。如我们要备份Adaptive Server Anywhere 6.0数据库,在备份结束后显示"备份完成!"的提示信息,如果在调用备份程序d...
  • oceanaut
  • oceanaut
  • 2002年05月13日 09:29
  • 959

VB 执行其他程序并等待其结束

VB 执行其他程序并等待其结束           近期在编写程序过程中用Winrar中的DOS程序rar.exe 对.Rar文件进行处理,并将结果写入一个文件,后面的程序将此文件用RichTex...
  • whchensir
  • whchensir
  • 2013年05月17日 22:14
  • 1470

PB 后台调用外部EXE文件 防止多重启动

PB 后台调用外部EXE文件 防止多重启动之调用EXE(效果:第二次启动程序则前一进 程的窗口跳到最前) 后台调用外部EXE文件,判断该exe文件是否已经运行,如果已经运行就调出exe对应 的界面...
  • smilysoft
  • smilysoft
  • 2015年06月23日 16:30
  • 1744

[delphi]调用外部程序并等待其运行结束

function RunWait(FileName: string; Visibility: Integer): THandle; var zAppName: array[0..512] of...
  • none01
  • none01
  • 2013年05月24日 11:26
  • 1006

Delphi调用外部程序并等待其运行结束

uses     Windows,        SysUtils,        Classes,        ShellAPI;       function RunAndWait(FileNa...
  • geniuslychee
  • geniuslychee
  • 2009年08月15日 10:39
  • 503

如何让Delphi调用外部程序并等待其运行结束

uses      Windows,       SysUtils,       Classes,       ShellAPI;     函数一:function RunAndWait(FileNa...
  • wjw806
  • wjw806
  • 2008年05月04日 20:54
  • 1250

Delphi 调用外部程序并等待其运行结束

uses      Windows,       SysUtils,       Classes,       ShellAPI;     function RunAndWait(FileName: ...
  • jordon830202
  • jordon830202
  • 2008年05月05日 10:58
  • 215

VB 让外部程序在VB程序的窗体里面运行

Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassNa...
  • lbuskeep
  • lbuskeep
  • 2011年07月17日 23:28
  • 3461
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在PB中调用外部程序并判断其运行结束
举报原因:
原因补充:

(最多只允许输入30个字)