Inno Setup добавить релиз времени на кнопку

Question

Друзья добавить время «кнопку Далее или Установить», чтобы выпустили на странице «Ready»

15 второй 15,14,13,12,11,10,9 , 8,7,6,5,4 время после отпускания кнопки нажать пример

Answer 1

Поскольку нет встроенного таймера в InnoSetup в это время, вы должны будете использовать Windows, API для этого. Кроме того, функция, которая будет использоваться здесь, нуждается в функции обратного вызова, которая должна быть завернута, например, InnoCallback, используемой следующим скриптом.

Показывает, как отключить следующую кнопку на странице выбора каталога в течение 5 секунд, но вы можете просто изменить параметр функции DisableNextButton, который представляет собой интервал в секундах для значения, которое вы хотите, а также можете изменить для какой страницы вы будете использовать его. Существует также значение оставшегося времени в следующей надписи кнопки:

[Setup] 
AppName=My Program 
AppVersion=1.5 
DefaultDirName={pf}\My Program 

[Files] 
Source: "InnoCallback.dll"; DestDir: "{tmp}"; Flags: dontcopy 

[Code] 
var 
    Counter: Integer; 
    TimerID: Integer; 

type 
    TTimerProc = procedure(Wnd: HWND; Msg: UINT; TimerID: UINT_PTR; 
    SysTime: DWORD); 

function WrapTimerProc(Callback: TTimerProc; ParamCount: Integer): LongWord; 
    external 'wrapcallback@files:InnoCallback.dll stdcall';  
function SetTimer(hWnd: HWND; nIDEvent, uElapse: UINT; 
    lpTimerFunc: UINT): UINT; external 'SetTimer@user32.dll stdcall'; 
function KillTimer(hWnd: HWND; uIDEvent: UINT): BOOL; 
    external 'KillTimer@user32.dll stdcall'; 

procedure OnTimerTick(Wnd: HWND; Msg: UINT; TimerID: UINT_PTR; 
    SysTime: DWORD); 
begin 
    Counter := Counter - 1; 

    if Counter <= 0 then 
    begin 
    WizardForm.NextButton.Enabled := True; 
    WizardForm.NextButton.Caption := SetupMessage(msgButtonNext); 
    if TimerID <> 0 then 
     KillTimer(0, TimerID); 
    end 
    else 
    WizardForm.NextButton.Caption := SetupMessage(msgButtonNext) + 
     IntToStr(Counter); 
end; 

procedure DisableNextButton(Timeout: Integer); 
var 
    TimerCallback: LongWord; 
begin 
    Counter := Timeout; 
    WizardForm.NextButton.Enabled := False; 
    WizardForm.NextButton.Caption := SetupMessage(msgButtonNext) + 
    IntToStr(Counter); 
    TimerCallback := WrapTimerProc(@OnTimerTick, 4); 
    TimerID := SetTimer(0, 0, 1000, TimerCallback); 
end; 

procedure CurPageChanged(CurPageID: Integer); 
begin 
    if CurPageID = wpSelectDir then 
    DisableNextButton(5); 
end; 

Вот скриншот: