|
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
sndPlaySound(ExpandConstant('{tmp}\click.wav'), $0001);
Confirm:=False;
Cancel:=True;
if CurPageID=wpInstalling then SuspendProc;
if CurPageID=wpInstalling then
begin
ISDoneError:=True;
ISDoneCancel:=1;
CoderLabel.Hide;
PercentageLabel.Hide;
WizardForm.Progressgauge.Hide;
FileStatusLabel.Setbounds(350,325,500,15);
FileStatusLabel.Font.Color:=clRed;
FileStatusLabel.Caption:=ExpandConstant('{cm:Rolli ngFileStatusLabel}');
DelTree(ExpandConstant('{app}'), True, True, True);
end;
if CurPageID=wpInstalling then ResumeProc;
end;
|