diff options
| author | berkeviktor@aol.com <berkeviktor@aol.com> | 2010-12-07 01:15:05 +0100 |
|---|---|---|
| committer | berkeviktor@aol.com <berkeviktor@aol.com> | 2010-12-07 01:15:05 +0100 |
| commit | a36bca1a8810a67134263e1da98826406ec78b32 (patch) | |
| tree | ed003e0fef09aa815b4145440f941bf9c7bbc3c7 | |
| parent | f1dff7604580eef9c65d25a7a2de5cc857cee359 (diff) | |
Backed out changeset: fdf3e1276dbe
| -rw-r--r-- | build/xchat-wdk.skel.iss | 20 |
1 files changed, 5 insertions, 15 deletions
diff --git a/build/xchat-wdk.skel.iss b/build/xchat-wdk.skel.iss index c633c21f..44b58813 100644 --- a/build/xchat-wdk.skel.iss +++ b/build/xchat-wdk.skel.iss @@ -281,25 +281,15 @@ end; ///////////////////////////////////////////////////////////////////// procedure CurStepChanged(CurStep: TSetupStep); -var - sAppPath: String; - sTempPath: String; begin - if not (IsTaskSelected('portable')) and (IsUpgrade()) then + if not (IsTaskSelected('portable')) then begin if (CurStep=ssInstall) then begin - sAppPath := ExtractFilePath(Application.ExeName); - sTempPath := GetTempDir(); - - DelTree(sTempPath + 'gtk-2.0', True, True, True) - RenameFile(sAppPath + 'etc\gtk-2.0', sTempPath + 'gtk-2.0'); - UnInstallOldVersion(); - end; - if (CurStep=ssPostInstall) then - begin - DelTree(sAppPath + 'etc\gtk-2.0', True, True, True) - RenameFile(sTempPath + 'gtk-2.0', sAppPath + 'etc\gtk-2.0'); + if (IsUpgrade()) then + begin + UnInstallOldVersion(); + end; end; end; end; |