diff options
| author | berkeviktor@aol.com <berkeviktor@aol.com> | 2010-11-15 13:45:58 +0100 |
|---|---|---|
| committer | berkeviktor@aol.com <berkeviktor@aol.com> | 2010-11-15 13:45:58 +0100 |
| commit | 00e7b363f8622f7d8ede7db66ae573a1a45aceef (patch) | |
| tree | be7c065ada54b5df2683da3b4461d43bcf939478 /build | |
| parent | 608eef5b78dddff936ff2dc7d9047590a572e314 (diff) | |
tabulation fix
Diffstat (limited to 'build')
| -rw-r--r-- | build/xchat-wdk.skel.iss | 52 |
1 files changed, 26 insertions, 26 deletions
diff --git a/build/xchat-wdk.skel.iss b/build/xchat-wdk.skel.iss index 8e0cb587..f16c7e2e 100644 --- a/build/xchat-wdk.skel.iss +++ b/build/xchat-wdk.skel.iss @@ -249,47 +249,47 @@ end; ///////////////////////////////////////////////////////////////////// function IsUpgrade(): Boolean; begin - Result := (GetUninstallString() <> ''); + Result := (GetUninstallString() <> ''); end; ///////////////////////////////////////////////////////////////////// function UnInstallOldVersion(): Integer; var - sUnInstallString: String; - iResultCode: Integer; + sUnInstallString: String; + iResultCode: Integer; begin // Return Values: // 1 - uninstall string is empty // 2 - error executing the UnInstallString // 3 - successfully executed the UnInstallString - // default return value - Result := 0; - - // get the uninstall string of the old app - sUnInstallString := GetUninstallString(); - if sUnInstallString <> '' then begin - sUnInstallString := RemoveQuotes(sUnInstallString); - if Exec(sUnInstallString, '/SILENT /NORESTART /SUPPRESSMSGBOXES','', SW_HIDE, ewWaitUntilTerminated, iResultCode) then - Result := 3 - else - Result := 2; - end else - Result := 1; + // default return value + Result := 0; + + // get the uninstall string of the old app + sUnInstallString := GetUninstallString(); + if sUnInstallString <> '' then begin + sUnInstallString := RemoveQuotes(sUnInstallString); + if Exec(sUnInstallString, '/SILENT /NORESTART /SUPPRESSMSGBOXES','', SW_HIDE, ewWaitUntilTerminated, iResultCode) then + Result := 3 + else + Result := 2; + end else + Result := 1; end; ///////////////////////////////////////////////////////////////////// procedure CurStepChanged(CurStep: TSetupStep); begin - if not (IsTaskSelected('portable')) then - begin - if (CurStep=ssInstall) then - begin - if (IsUpgrade()) then - begin - UnInstallOldVersion(); - end; - end; - end; + if not (IsTaskSelected('portable')) then + begin + if (CurStep=ssInstall) then + begin + if (IsUpgrade()) then + begin + UnInstallOldVersion(); + end; + end; + end; end; |