|
楼主 |
发表于 2023-5-21 12:38:04
|
显示全部楼层
TraySetToolTip("正在创建压缩档案:" & $cArchives)
Local $sOutput, $findPercent, $iProgPercent
Local $iPID = Run($sCmdp, @ScriptDir, @SW_SHOW, $STDOUT_CHILD)
ProgressOn($cTitle, "", "", -1, 1, $DLG_MOVEABLE)
While 1
$sOutput = StdoutRead($iPID)
If @error Then ExitLoop
If $sOutput <> "" Then
$findPercent = StringInStr($sOutput, '%')
If $findPercent And StringInStr($sOutput, '+') Then
$iProgPercent = Number(StringLeft($sOutput, $findPercent - 1))
ProgressSet($iProgPercent, "", "Compressing...")
EndIf
EndIf
WEnd
ProgressOff() |
|