简单进度条
这个值 0, 0 & " %" 看文件多少,自己改就行了ProgressOn("进度条", "正在解压", "0 %")
ProgressSet(0, 0 & " %")
FileInstall("1.exe",@TempDir & "", 1)
ProgressSet(10, 10 & " %")
FileInstall("2.exe",@TempDir & "", 1)
ProgressSet(20, 20 & " %")
FileInstall("3.exe",@TempDir & "", 1)
ProgressSet(30, 30 & " %")
FileInstall("4.exe",@TempDir & "", 1)
ProgressSet(40, 40 & " %")
FileInstall("5.exe",@TempDir & "", 1)
ProgressSet(50, 50 & " %")
FileInstall("6.exe",@TempDir & "", 1)
ProgressSet(60, 60 & " %")
FileInstall("7.exe",@TempDir & "", 1)
ProgressSet(70, 70 & " %")
FileInstall("8.exe",@TempDir & "", 1)
ProgressSet(80, 80 & " %")
FileInstall("9.exe",@TempDir & "", 1)
ProgressSet(90, 90 & " %")
FileInstall("10.exe",@TempDir & "", 1)
ProgressSet(100, 100 & " %")
FileInstall("11.exe",@TempDir & "", 1)
ProgressOff()
MsgBox(0, "解压文件", "解压完成!")
|