View Single Post
  #6  
Old 06-05-2014, 03:17
Logrim Logrim is offline
Registered User
 
Join Date: Jun 2009
Location: Spain
Posts: 153
Thanks: 116
Thanked 72 Times in 44 Posts
Logrim is on a distinguished road
Thanks razor,, work like a charm :d.. i forgot to include wizardform in curpageid... ains..

Another problem... i hope,, really i hope is the last.. when i cancel the installation (external compression) even in 1% or 2%, the correct message of rollingback appears, but the setup dont quit.. i dont know why.. this is my cancel procedure:

Quote:
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
sndPlaySound(ExpandConstant('{tmp}\click.wav'), $0001);
Confirm:=False;
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;
Reply With Quote