//设置鼠标指针
SetPointer(HourGlass!)
//运行DOS批处理命令的快捷键方式,并将其窗口隐藏
lu_return = ShellExecutea(handle(w_filecopy), "open", "c:\temp\run.bat", "", ls_path, 0)
//最后一个参数改为 4,可以显示执行情况,0为隐藏窗口
String ls_classname
if lu_return>32 then
ll_handle = 0
//循环至DOS窗口打开
Do While ll_handle = 0
setnull(ls_classname)
ll_handle = FindWindowA(ls_classname,'C:\WINNT\System32\cmd.exe')
// If ib_Close Then Exit
yield()
loop
//等待DOS窗口关闭
Do While isWindow(ll_handle)
// If ib_Close Then Exit
Yield()
Loop
// 应用执行完成
end if