Пример с pause button для isdone

[Mrman]

Всем доброго времени суток!
мб у кого нибуть остался пример с pause button для isdone,раньше скидывали тут но файл удален )

 

[vint56]

Mrman,

procedure PauseButtonOnClick(Sender : TObject);
begin
case TButton(Sender).Tag of
0: begin
TButton(Sender).Tag := 1;
SuspendProc;
TButton(Sender).Caption := 'Продолжить';
WizardForm.StatusLabel.Caption:=ExpandConstant('Установка приостановлена...');
end;
1: begin
TButton(Sender).Tag := 0;
TButton(Sender).Caption := 'Пауза';
ResumeProc;
WizardForm.StatusLabel.Caption:=ExpandConstant('Распаковка архивов...');
end;
end;
end;

procedure CreateControls;
var PBTop:integer;
begin
PauseButton := TNewButton.Create(WizardForm);
with PauseButton do
begin
Parent := WizardForm;
Left := ScaleX(50);
Top := ScaleY(325);
Width := ScaleX(75);
Height := ScaleY(25);
Caption := 'Пауза';
OnClick:=@PauseButtonOnClick;
end;
end;