如何指定在Inno Setup中更新剩餘時間標籤的時間段？

Question

我想表現在以下問題象安裝過程中剩餘的時間和使用從那裏的代碼，張貼TLama：How to show percent done, elapsed time and estimated time progress?

的代碼爲我工作，所以感謝。 但是，如果您安裝更大的文件，「剩餘時間標籤」更新的時間段太快。

所以我想問一下，如何更改「剩餘時間標籤」的更新週期，以便它只更新每秒或每半秒。

在此先感謝

Answer 1

使用GetTickCount記住上次更新時間。在接下來的調用CurInstallProgressChanged計算差異CurTick和更新標籤只有在差異足夠大（1000 = 1秒）

var 
    LastUpdate: DWORD; 

procedure CurInstallProgressChanged(CurProgress, MaxProgress: Integer); 
var 
    CurTick: DWORD; 
begin 
    CurTick := GetTickCount; 
    if (CurTick - LastUpdate) >= 1000 then 
    begin 
    LastUpdate := CurTick; 
    // Update labels 
    end; 
end;