fix(ModModPack): 解压压缩包进度可能超过 100%
This commit is contained in:
@@ -115,6 +115,7 @@ Public Module ModModpack
|
|||||||
Dim Encode = Encoding.GetEncoding("GB18030")
|
Dim Encode = Encoding.GetEncoding("GB18030")
|
||||||
Try
|
Try
|
||||||
Retry:
|
Retry:
|
||||||
|
Loader.Progress = 0
|
||||||
'完全不知道为啥会出现文件正在被另一进程使用的问题,总之多试试
|
'完全不知道为啥会出现文件正在被另一进程使用的问题,总之多试试
|
||||||
DeleteDirectory(InstallTemp)
|
DeleteDirectory(InstallTemp)
|
||||||
ExtractFile(FileAddress, InstallTemp, Encode, ProgressIncrementHandler:=Sub(Delta) Loader.Progress += Delta * LoaderProgressDelta)
|
ExtractFile(FileAddress, InstallTemp, Encode, ProgressIncrementHandler:=Sub(Delta) Loader.Progress += Delta * LoaderProgressDelta)
|
||||||
|
|||||||
Reference in New Issue
Block a user