iiiypuk/hexchat
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Backed out changeset: fdf3e1276dbe

Browse Source
This commit is contained in:
berkeviktor@aol.com 2010-12-07 01:15:05 +01:00
parent f1dff76045
commit a36bca1a88
1 changed files with 5 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
build/xchat-wdk.skel.iss
View File

@ -281,25 +281,15 @@ end;
///////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////
procedure CurStepChanged(CurStep: TSetupStep); procedure CurStepChanged(CurStep: TSetupStep);
var
sAppPath: String;
sTempPath: String;
begin begin
if not (IsTaskSelected('portable')) and (IsUpgrade()) then if not (IsTaskSelected('portable')) then
begin begin
if (CurStep=ssInstall) then if (CurStep=ssInstall) then
begin begin
sAppPath := ExtractFilePath(Application.ExeName); if (IsUpgrade()) then
sTempPath := GetTempDir(); begin
DelTree(sTempPath + 'gtk-2.0', True, True, True)
RenameFile(sAppPath + 'etc\gtk-2.0', sTempPath + 'gtk-2.0');
UnInstallOldVersion(); UnInstallOldVersion();
end; 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');
end; end;
end; end;
end; end;