Remove migrators
This commit is contained in:
Berke Viktor
parent
876bbe23d9
commit
91ac20c076
|
|
@ -1,132 +0,0 @@
|
|||
[Setup]
|
||||
WizardImageFile=c:\mozilla build\build\xchat-wdk\win32\bitmaps\wizardimage.bmp
|
||||
WizardSmallImageFile=c:\mozilla build\build\xchat-wdk\win32\bitmaps\wizardsmallimage.bmp
|
||||
AppVerName=XChat-WDK 2.9.0
|
||||
AppVersion=2.9.0
|
||||
VersionInfoVersion=2.9.0
|
||||
OutputBaseFilename=XChat-WDK 2.9.0 x64
|
||||
SetupIconFile=c:\mozilla build\build\xchat-wdk\xchat.ico
|
||||
AppName=XChat-WDK
|
||||
AppPublisher=XChat-WDK
|
||||
AppPublisherURL=http://www.xchat-wdk.org/
|
||||
AppCopyright=Copyright (C) 1998-2010 Peter Zelezny
|
||||
AppSupportURL=http://code.google.com/p/xchat-wdk/issues/list
|
||||
AppUpdatesURL=http://www.xchat-wdk.org/home/downloads
|
||||
UninstallDisplayIcon={app}\xchat.exe
|
||||
UninstallDisplayName=XChat-WDK
|
||||
DefaultDirName={pf}\XChat-WDK
|
||||
DefaultGroupName=XChat-WDK
|
||||
DisableProgramGroupPage=yes
|
||||
DisableDirPage=yes
|
||||
DisableReadyPage=yes
|
||||
DisableReadyMemo=yes
|
||||
SolidCompression=yes
|
||||
SourceDir=..\tmp
|
||||
OutputDir=..\win32
|
||||
FlatComponentsList=no
|
||||
PrivilegesRequired=none
|
||||
ShowComponentSizes=no
|
||||
CreateUninstallRegKey=no
|
||||
Uninstallable=no
|
||||
ArchitecturesAllowed=x64
|
||||
ArchitecturesInstallIn64BitMode=x64
|
||||
|
||||
[Messages]
|
||||
BeveledLabel= XChat-WDK
|
||||
|
||||
[Code]
|
||||
/////////////////////////////////////////////////////////////////////
|
||||
// these are required for x86->x64 or reverse upgrades
|
||||
/////////////////////////////////////////////////////////////////////
|
||||
function GetUninstallString(): String;
|
||||
var
|
||||
sUnInstPath: String;
|
||||
sUnInstallString: String;
|
||||
begin
|
||||
sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\XChat-WDK (x64)_is1');
|
||||
sUnInstallString := '';
|
||||
if not RegQueryStringValue(HKLM, sUnInstPath, 'UninstallString', sUnInstallString) then
|
||||
RegQueryStringValue(HKCU, sUnInstPath, 'UninstallString', sUnInstallString);
|
||||
Result := sUnInstallString;
|
||||
end;
|
||||
|
||||
|
||||
/////////////////////////////////////////////////////////////////////
|
||||
function IsUpgrade(): Boolean;
|
||||
begin
|
||||
Result := (GetUninstallString() <> '');
|
||||
end;
|
||||
|
||||
|
||||
/////////////////////////////////////////////////////////////////////
|
||||
function UnInstallOldVersion(): Integer;
|
||||
var
|
||||
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;
|
||||
end;
|
||||
|
||||
/////////////////////////////////////////////////////////////////////
|
||||
procedure MigrateSettings();
|
||||
begin
|
||||
RenameFile(ExpandConstant('{userappdata}\X-Chat 2'), ExpandConstant('{userappdata}\HexChat'));
|
||||
end;
|
||||
|
||||
/////////////////////////////////////////////////////////////////////
|
||||
function SettingsExistCheck(): Boolean;
|
||||
begin
|
||||
if DirExists(ExpandConstant('{userappdata}\X-Chat 2')) then
|
||||
Result := True
|
||||
else
|
||||
Result := False
|
||||
end;
|
||||
|
||||
/////////////////////////////////////////////////////////////////////
|
||||
procedure CurStepChanged(CurStep: TSetupStep);
|
||||
var
|
||||
ErrCode: integer;
|
||||
begin
|
||||
if not (IsTaskSelected('portable')) then
|
||||
begin
|
||||
|
||||
if (CurStep=ssInstall) then
|
||||
begin
|
||||
if (IsUpgrade()) then
|
||||
begin
|
||||
UnInstallOldVersion();
|
||||
end;
|
||||
end;
|
||||
|
||||
if (CurStep=ssPostInstall) then
|
||||
begin
|
||||
if SettingsExistCheck() then begin
|
||||
if SuppressibleMsgBox('Would you like to migrate your existing XChat configuration to HexChat?', mbConfirmation, MB_YESNO or MB_DEFBUTTON2, IDNO) = IDYES then
|
||||
MigrateSettings();
|
||||
end;
|
||||
end;
|
||||
|
||||
if (CurStep=ssDone) then
|
||||
begin
|
||||
ShellExec('open', 'http://www.hexchat.org/home/downloads', '', '', SW_SHOW, ewNoWait, ErrCode);
|
||||
end;
|
||||
|
||||
end;
|
||||
end;
|
||||
|
|
@ -1,131 +0,0 @@
|
|||
[Setup]
|
||||
WizardImageFile=c:\mozilla build\build\xchat-wdk\win32\bitmaps\wizardimage.bmp
|
||||
WizardSmallImageFile=c:\mozilla build\build\xchat-wdk\win32\bitmaps\wizardsmallimage.bmp
|
||||
AppVerName=XChat-WDK 2.9.0
|
||||
AppVersion=2.9.0
|
||||
VersionInfoVersion=2.9.0
|
||||
OutputBaseFilename=XChat-WDK 2.9.0 x86
|
||||
SetupIconFile=c:\mozilla build\build\xchat-wdk\xchat.ico
|
||||
AppName=XChat-WDK
|
||||
AppPublisher=XChat-WDK
|
||||
AppPublisherURL=http://www.xchat-wdk.org/
|
||||
AppCopyright=Copyright (C) 1998-2010 Peter Zelezny
|
||||
AppSupportURL=http://code.google.com/p/xchat-wdk/issues/list
|
||||
AppUpdatesURL=http://www.xchat-wdk.org/home/downloads
|
||||
UninstallDisplayIcon={app}\xchat.exe
|
||||
UninstallDisplayName=XChat-WDK
|
||||
DefaultDirName={pf}\XChat-WDK
|
||||
DefaultGroupName=XChat-WDK
|
||||
DisableProgramGroupPage=yes
|
||||
DisableDirPage=yes
|
||||
DisableReadyPage=yes
|
||||
DisableReadyMemo=yes
|
||||
SolidCompression=yes
|
||||
SourceDir=..\tmp
|
||||
OutputDir=..\win32
|
||||
FlatComponentsList=no
|
||||
PrivilegesRequired=none
|
||||
ShowComponentSizes=no
|
||||
CreateUninstallRegKey=no
|
||||
Uninstallable=no
|
||||
ArchitecturesAllowed=x86 x64
|
||||
|
||||
[Messages]
|
||||
BeveledLabel= XChat-WDK
|
||||
|
||||
[Code]
|
||||
/////////////////////////////////////////////////////////////////////
|
||||
// these are required for x86->x64 or reverse upgrades
|
||||
/////////////////////////////////////////////////////////////////////
|
||||
function GetUninstallString(): String;
|
||||
var
|
||||
sUnInstPath: String;
|
||||
sUnInstallString: String;
|
||||
begin
|
||||
sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\XChat-WDK (x86)_is1');
|
||||
sUnInstallString := '';
|
||||
if not RegQueryStringValue(HKLM, sUnInstPath, 'UninstallString', sUnInstallString) then
|
||||
RegQueryStringValue(HKCU, sUnInstPath, 'UninstallString', sUnInstallString);
|
||||
Result := sUnInstallString;
|
||||
end;
|
||||
|
||||
|
||||
/////////////////////////////////////////////////////////////////////
|
||||
function IsUpgrade(): Boolean;
|
||||
begin
|
||||
Result := (GetUninstallString() <> '');
|
||||
end;
|
||||
|
||||
|
||||
/////////////////////////////////////////////////////////////////////
|
||||
function UnInstallOldVersion(): Integer;
|
||||
var
|
||||
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;
|
||||
end;
|
||||
|
||||
/////////////////////////////////////////////////////////////////////
|
||||
procedure MigrateSettings();
|
||||
begin
|
||||
RenameFile(ExpandConstant('{userappdata}\X-Chat 2'), ExpandConstant('{userappdata}\HexChat'));
|
||||
end;
|
||||
|
||||
/////////////////////////////////////////////////////////////////////
|
||||
function SettingsExistCheck(): Boolean;
|
||||
begin
|
||||
if DirExists(ExpandConstant('{userappdata}\X-Chat 2')) then
|
||||
Result := True
|
||||
else
|
||||
Result := False
|
||||
end;
|
||||
|
||||
/////////////////////////////////////////////////////////////////////
|
||||
procedure CurStepChanged(CurStep: TSetupStep);
|
||||
var
|
||||
ErrCode: integer;
|
||||
begin
|
||||
if not (IsTaskSelected('portable')) then
|
||||
begin
|
||||
|
||||
if (CurStep=ssInstall) then
|
||||
begin
|
||||
if (IsUpgrade()) then
|
||||
begin
|
||||
UnInstallOldVersion();
|
||||
end;
|
||||
end;
|
||||
|
||||
if (CurStep=ssPostInstall) then
|
||||
begin
|
||||
if SettingsExistCheck() then begin
|
||||
if SuppressibleMsgBox('Would you like to migrate your existing XChat configuration to HexChat?', mbConfirmation, MB_YESNO or MB_DEFBUTTON2, IDNO) = IDYES then
|
||||
MigrateSettings();
|
||||
end;
|
||||
end;
|
||||
|
||||
if (CurStep=ssDone) then
|
||||
begin
|
||||
ShellExec('open', 'http://www.hexchat.org/home/downloads', '', '', SW_SHOW, ewNoWait, ErrCode);
|
||||
end;
|
||||
|
||||
end;
|
||||
end;
|
||||
Loading…
Reference in New Issue