don't uninstall when portable install is performed

This commit is contained in:
berkeviktor@aol.com 2010-08-23 22:32:22 +02:00
parent 04329bc07b
commit 7bf6ac9aa7

View File

@ -225,11 +225,14 @@ end;
/////////////////////////////////////////////////////////////////////
procedure CurStepChanged(CurStep: TSetupStep);
begin
if (CurStep=ssInstall) then
if not (IsTaskSelected('portablemode')) then
begin
if (IsUpgrade()) then
if (CurStep=ssInstall) then
begin
UnInstallOldVersion();
if (IsUpgrade()) then
begin
UnInstallOldVersion();
end;
end;
end;
end;