DirCopy同时显示气球提示，怎么做？

3mile

如果只是要提示的话，试试这个。

Global $a=2,$str='正在复制'
AdlibRegister("MyAdlib",5000)
MyAdlib()
$a=DirCopy("源路径","目的路径",1)  ；开始拷贝
;...
Exit

Func MyAdlib()
        If $a<>2 then 
             AdlibUnRegister("MyAdlib")
             TrayTip("")
       else
            $str&="."
            TrayTip($str)
       endif
EndFunc

dearmb

如果只是要提示的话，试试这个。
3mile 发表于 2010-12-31 16:44

Global $a=2
AdlibRegister("MyAdlib",3000)
MyAdlib()
$a=DirCopy("E:\back\a","d:\a",1) ;开始拷贝
Func MyAdlib()
        If $a<>2 then
                        AdlibUnRegister("MyAdlib")
                        TrayTip("","kaobeijieshu",5)
                else
                TrayTip("","正在复制。    ",5)
                Sleep (500)
                TrayTip("清除","",5)
                TrayTip("","正在复制。。  ",5)
                Sleep (500)
                TrayTip("清除","",5)
                TrayTip("","正在复制。。。",5)
                Sleep (500)
                TrayTip("清除","",5)
                endif
        EndFunc

我是这么写的，帮我看一下，现在碰到的问题是
AdlibRegister("MyAdlib",3000)，这句的时间问题，如果时间比较长，就没气球一直变得没有效果了
如果时间设短了，似乎就没有时间执行dircopy操作了
实际情况是这样，拷贝40M的文件
我设成5秒，执行下一次要等5秒，拷贝成功
我设成250毫秒，500毫秒，或1秒，气球提示的效果是有了
但是文件一直也拷贝不过去……

3mile

加了SLEEP?那还执行什么？

dearmb

加了SLEEP?那还执行什么？
3mile 发表于 2010-12-31 19:01

如果我不加sleep的话，就显示一个，就不像动画了……
在有问一下，sleep会影响拷贝的速度
traytip呢？一直提示traytip会不会影响dircopy的速度呢？