paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 13:00:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Win-Installer: Added ability to create secondary installations.

Browse Source 
git-svn-id: trunk@42510 -
This commit is contained in:
martin 2013-08-28 18:41:36 +00:00
parent c0948b5372
commit 52c58fb803
3 changed files with 542 additions and 95 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
tools/install/win/lazarus-cross.iss
View File

@ -21,17 +21,22 @@ EnableISX=true
#define OutputFileName GetEnv('OutputFileName')
[Setup]
AppName={#AppName}
; AddId: registry/uninstall info: Max 127 char
AppId={code:GetAppId}
AppVersion={#AppVersion}
AppVerName={#AppName} {#AppVersion}
AppPublisher=Lazarus Team
AppPublisherURL=http://www.lazarus.freepascal.org/
AppSupportURL=http://www.lazarus.freepascal.org/
AppUpdatesURL=http://www.lazarus.freepascal.org/
ArchitecturesInstallIn64BitMode=x64
DefaultDirName={code:GetDefDir|{sd}\lazarus}
DefaultGroupName={#AppName}
InternalCompressLevel=ultra
OutputBaseFilename={#OutputFileName}
SolidCompression=true
InternalCompressLevel=ultra
;InternalCompressLevel=ultra64
;Compression=lzma2/ultra64
SolidCompression=yes
VersionInfoVersion={#FileVersion}
VersionInfoTextVersion={#AppVersion}-{#SetupDate}
ShowLanguageDialog=yes
@ -39,8 +44,9 @@ WizardImageFile=lazarus_install_cheetah.bmp
WizardSmallImageFile=lazarus_install_cheetah_small.bmp
WizardImageStretch=false
ShowTasksTreeLines=true
WindowVisible=true
PrivilegesRequired=none
; since appid can change, UsePreviousLanguage must be off
UsePreviousLanguage=no
[Files]
Source: {#BuildDir}\image\*.*; DestDir: {app}; Flags: recursesubdirs
@ -51,6 +57,33 @@ Filename: {app}\Lazarus Forums.url; Section: InternetShortcut; Key: URL; String:
Filename: {app}\Lazarus Wiki Help.url; Section: InternetShortcut; Key: URL; String: http://wiki.lazarus.freepascal.org/index.php/Main_Page
[Code]
var
InitDone: String;
procedure InitializeWizard();
begin
InitDone := '1';
end;
function GetAppId(param:string): String;
var
s: String;
begin
Result := 'lazarus';
if InitDone = '' then
exit;
s := AddBackslash(WizardDirValue) + 'lazarus.cfg';
if FileExists(s) then
begin
// Secondary
s := RemoveBackslashUnlessRoot(Lowercase(WizardDirValue));
Result := 'lazarus_sec_'+GetSHA1OfString(s) + '_' + IntToStr(length(s));
end
else
Result := 'lazarus';
end;
function NextButtonClick(CurPage: Integer): Boolean;
var
folder: String;

53
tools/install/win/lazarus.def.isl
View File

@ -10,24 +10,63 @@ InstallQt=Install QT interface dll
InstallChm=Install chm help files
AssociateGroup=Associate file extensions
CheckSecondClick=Create a new secondary installation
CheckSecondInfo=A secondary installation allows two or more versions of Lazarus to be installed. Each version will have it's own configuration. Please read the FAQ on multiple installations before using this option.
FolderHasSpaces=Selected folder contains spaces, please select a folder without spaces in it.
FolderNotEmpty=The target folder is not empty. Continue with installation?
FolderNotEmpty2=The target folder is not empty.
FolderForSecondNoFile=The target folder is not empty and does not contains an upgradable secondary Lazarus installation.%0:sPlease choose an empty folder, or an folder with an existing secondary Lazarus installation for updating.
FolderForSecondBadFile=The target folder is not empty. The installer could not detect if it contains an upgradable secondary Lazarus installation%0:sPlease choose an empty folder, or an folder with an existing secondary Lazarus installation for updating.
FolderForSecondUpgrading=The target folder is not empty.%0:sIt contains a secondary Lazarus installation using the following folder for configuration:%0:s%1:s%0:s%0:sContinue with installation?
FolderForSecondBadUninstall=The target folder is not empty. The installer could not verify if it is safe to use.%0:sPlease choose an empty folder, or an folder with an existing secondary Lazarus installation for updating.
SecondConfCapt=Select configuration folder
SecondConfCapt2=Where do you want this Lazarus installation to store its configuration?
SecondConfBody=Select a new empty folder for this installation of Lazarus to store its configuration, then continue with next.
FolderForConfNotEmpty=The selected folder is not empty.
AskUninstallTitle1=Previous Installation
AskUninstallTitle2=Do you want to run the uninstaller?
BtnUninstall=Uninstall
ChkContinue=Continue without uninstall
OldInDestFolder1=Another installation of %1 exists in the destination folder. If you wish to uninstall first, please use the button below.
OldInDestFolder1=Another installation of %1:s exists in the destination folder. If you wish to uninstall first, please use the button below.
OldInDestFolder2=
OldInDestFolder3=
OldInDestFolder4=
OldInOtherFolder1=Another installation of %1 was found at %2. Please use the button below to uninstall it now. If you wish to keep it, please tick the checkbox to continue.
OldInOtherFolder2=Note: Using multiple copies of Lazarus is not supported by this installer.
OldInOtherFolder3=Using several installations of Lazarus can lead to conflicts in files shared by all of the installations, such as the IDE configuration.
OldInOtherFolder4=If you wish to use more than one installation, then you must do additional setup after this installation finished. Please see the Lazarus web page for this, and how to use --primary-config-path
OldInOtherFolder1=Another installation of %1:s was found at %2:s. Please use the button below to uninstall it now. If you wish to keep it, please tick the checkbox to continue.
OldInOtherFolder2=Warning: There may be conflicts between the different installs and they may not function properly.
OldInOtherFolder3=Note: You have not chosen a dedicated configuration Folder for this installation.
OldInOtherFolder4=If you wish to use more than one installation, pleas go back and check: "Create a new secondary installation"
DuringInstall=Some Info from our FAQ: http://wiki.lazarus.freepascal.org/Lazarus_Faq%0:s%0:s What is Lazarus?%0:sLazarus is a cross-platform IDE for Pascal. Its aim is write once, compile anywhere.%0:s%0:s How to reduce the exe file size?%0:sThe default binaries are very big because they include debug information. For release builds you can switch this off in the Project settings.%0:s%0:s Licensing:%0:s- The LCL is licensed LGPL with linking exception. This allows you to create apps with any license you want, including commercial.%0:s- The IDE is licensed GPL. If you distribute a modified IDE you must follow the GPL.%0:s- Other packages and components have various licenses. See the readme of each package.
OldInBadFolder1=Warning: Another installation of %1:s was found at %2:s. But the uninstaller was found at %3:s. Please make sure the uninstaller is correct.
OldInBadFolder2=Warning: There may be conflicts between the different installs and they may not function properly.
OldInBadFolder3=Note: If you wish to use more than one installation, pleas go back and check: "Create a new secondary installation"
OldInBadFolder4=Please use the button below to uninstall it now. If you wish to keep it, please tick the checkbox to continue.
OldSecondInDestFolder1=Another installation of %1:s exists in the destination folder. If you wish to uninstall first, please use the button below.
OldSecondInDestFolder2=
OldSecondInDestFolder3=This is a secondary installation and the folder for configuration is (and will be kept):
OldSecondInDestFolder4=%4:s
OldSecondInOtherFolder1=
OldSecondInOtherFolder2=
OldSecondInOtherFolder3=
OldSecondInOtherFolder4=
OldSecondInBadFolder1=
OldSecondInBadFolder2=
OldSecondInBadFolder3=
OldSecondInBadFolder4=
SecondTaskUpdate=Updating secondary installation with configuration in folder:%0:s%1:s%2:s
SecondTaskCreate=Creating secondary installation with configuration in folder:%0:s%1:s%2:s
DuringInstall=Some Info from our FAQ: http://wiki.lazarus.freepascal.org/Lazarus_Faq%0:s%0:s What is Lazarus?%0:sLazarus is a cross-platform IDE for Pascal. Its aim is write once, compile anywhere.%0:s%0:s How to reduce the exe file size?%0:sThe default binaries are very big because they include debug information. For release builds you can switch this off in the Project settings.%0:s%0:s Licensing:%0:s- The LCL is licensed LGPL with linking exception. This allows you to create apps with any license you want, including commercial.%0:s- The IDE is licensed GPL. If you distribute a modified IDE you must follow the GPL.%0:s- Other packages and components have various licenses. See the readme of each package.
UninstVerbose=About to uninstall %1:s from folder %0:s. Continue?

545
tools/install/win/lazarus.iss
View File

@ -22,6 +22,8 @@ EnableISX=true
[Setup]
AllowNoIcons=yes
AppName={#AppName}
; AddId: registry/uninstall info: Max 127 char
AppId={code:GetAppId}
AppVersion={#AppVersion}
AppVerName={#AppName} {#AppVersion}
AppPublisher=Lazarus Team
@ -43,12 +45,14 @@ ShowLanguageDialog=yes
WizardImageFile=lazarus_install_cheetah.bmp
WizardSmallImageFile=lazarus_install_cheetah_small.bmp
WizardImageStretch=false
ShowTasksTreeLines=yes
ShowTasksTreeLines=true
TimeStampRounding=0
PrivilegesRequired=none
ChangesAssociations=yes
; prevent checkbox pre-set (for delete user conf). Latest inno supports unchecked checkedonce
UsePreviousTasks=no
; since appid can change, UsePreviousLanguage must be off
UsePreviousLanguage=no
UninstallDisplayIcon={app}\lazarus.exe
[Tasks]
@ -77,16 +81,16 @@ Name: association/associatepas; Description: {code:GetAssociateDesc|.pas}; Types
Name: association/associatepp; Description: {code:GetAssociateDesc|.pp}; Types: custom full
[InstallDelete]
Name: {localappdata}\lazarus\*.xml; Type: files; Tasks: delusersettings
Name: {localappdata}\lazarus\*.cfg; Type: files; Tasks: delusersettings
Name: {localappdata}\lazarus\lazarus.dci; Type: files; Tasks: delusersettings
Name: {localappdata}\lazarus\compilertest.pas; Type: files; Tasks: delusersettings
Name: {localappdata}\lazarus\easydocklayout.lyt; Type: files; Tasks: delusersettings
Name: {localappdata}\lazarus\laz_indentation.pas; Type: files; Tasks: delusersettings
Name: {localappdata}\lazarus\staticpackages.inc; Type: files; Tasks: delusersettings
Name: {localappdata}\lazarus\unitdictionarycodyunitdictionary*.tmp; Type: files; Tasks: delusersettings
Name: {localappdata}\lazarus\projectsessions\*.lps; Type: files; Tasks: delusersettings
Name: {localappdata}\lazarus\userschemes\*.xml; Type: files; Tasks: delusersettings
Name: {code:GetPCPForDelete}*.xml; Type: files; Tasks: delusersettings
Name: {code:GetPCPForDelete}*.cfg; Type: files; Tasks: delusersettings
Name: {code:GetPCPForDelete}lazarus.dci; Type: files; Tasks: delusersettings
Name: {code:GetPCPForDelete}compilertest.pas; Type: files; Tasks: delusersettings
Name: {code:GetPCPForDelete}easydocklayout.lyt; Type: files; Tasks: delusersettings
Name: {code:GetPCPForDelete}laz_indentation.pas; Type: files; Tasks: delusersettings
Name: {code:GetPCPForDelete}staticpackages.inc; Type: files; Tasks: delusersettings
Name: {code:GetPCPForDelete}unitdictionarycodyunitdictionary*.tmp; Type: files; Tasks: delusersettings
Name: {code:GetPCPForDelete}projectsessions\*.lps; Type: files; Tasks: delusersettings
Name: {code:GetPCPForDelete}userschemes\*.xml; Type: files; Tasks: delusersettings
#if FPCTargetOS=="win32"
#include "RemovedFiles32.iss"
#endif
@ -263,26 +267,67 @@ Name: sl; MessagesFile: compiler:Languages\Slovenian.isl
[Code]
type
TUninstallState = (uiUnknown, UIDone, UIOtherNeeded, uiDestNeeded);
var
TUninstallState = (
uiUnknown,
UIDone, // There IS no uninstaller, OR it was already executed during this install
UIOtherNeeded, // The uninstaller ('Inno Setup: App Path') points to a different Path than "WizardFolder"
// Uninstall for OTHER folder NEEDED
uiDestNeeded, // Uninstaller for "WizardFolder" found
// Uninstall for DESTINATION folder NEEDED
uiInconsistent // Path of uninstaller and lazarus to be removed, do not match
);
TCfgFileState = (csNoFile, csUnreadable, csParsedOk);
var
wpAskUnistall: TWizardPage;
wpLabel1, wpLabel2, wpLabel3, wpLabel4: TNewStaticText;
wpCheckBox: TNewCheckBox;
wpButton: TNewButton;
wpAskConfDir: TInputDirWizardPage;
CheckSecondInstall: TCheckBox;
CheckSecondLabel: TLabel;
UninstallState, UninstallDoneState: TUninstallState;
OldPath, OldName, UnInstaller: String;
UnInstallerInAppPath: Boolean; // The uninstaller is in the directory that it will remove
OldPath, // Registry 'Inno Setup: App Path'
OldName, // Registry 'DisplayName'
UnInstaller: String; // Registry 'UninstallString'
PathEqual: Boolean;
IsSecondaryUpdate: Boolean;
SecondPCP: String;
NewCFGFile: TStringList;
function GetUninstallData(s: String): String; // 'UninstallString'
UninstDir: String;
CFGFileForUninstDir: TStringList;
function GetAppId(param:string): String;
var
Path: String;
s: String;
begin
Path := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\lazarus_is1');
Result := '';
if not RegQueryStringValue(HKLM, Path, s, Result) then
RegQueryStringValue(HKCU, Path, s, Result);
if ( (CheckSecondInstall <> nil) and (CheckSecondInstall.Checked) ) or IsSecondaryUpdate then
begin
// Secondary
s := RemoveBackslashUnlessRoot(Lowercase(WizardDirValue));
Result := 'lazarus_sec_'+GetSHA1OfString(s) + '_' + IntToStr(length(s));
end
else
Result := 'lazarus';
end;
function GetPCPForDelete(param:string): String;
begin
if ( (CheckSecondInstall <> nil) and (CheckSecondInstall.Checked) ) then
begin
if SecondPCP = '' then
Result := AddBackslash(WizardDirValue) // some fallback
else
Result := AddBackslash(SecondPCP);
end
else
Result := ExpandConstant('{localappdata}\lazarus\');
end;
function IsDirEmpty(s: String): Boolean;
@ -299,6 +344,25 @@ begin
FindClose(FindRec);
end;
function SaveCustomMessage(AMsgId, ADefaulText: String): String;
begin
try
Result := CustomMessage(AMsgId);
except
Result := ADefaulText;
end;
end;
function GetUninstallData(ARegName: String): String; // Get one entry from registry e.g. 'UninstallString'
var
Path: String;
begin
Path := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\'+GetAppId('')+'_is1');
Result := '';
if not RegQueryStringValue(HKLM, Path, ARegName, Result) then
RegQueryStringValue(HKCU, Path, ARegName, Result);
end;
procedure UpdateUninstallInfo;
begin
OldPath := '';
@ -312,18 +376,100 @@ begin
begin
OldPath := RemoveQuotes((GetUninstallData('Inno Setup: App Path')));
OldName := GetUninstallData('DisplayName');
PathEqual := (OldPath <> '') and (CompareText(RemoveBackslashUnlessRoot(OldPath), RemoveBackslashUnlessRoot(WizardDirValue)) = 0);
PathEqual := (OldPath <> '') and
(CompareText(RemoveBackslashUnlessRoot(OldPath), RemoveBackslashUnlessRoot(WizardDirValue)) = 0);
if PathEqual then
UninstallState := uiDestNeeded
else
UninstallState := uiOtherNeeded;
UnInstallerInAppPath := (CompareText(RemoveBackslashUnlessRoot(OldPath), RemoveBackslashUnlessRoot(ExtractFilePath(UnInstaller))) = 0);
if (not UnInstallerInAppPath) and
( (CompareText(RemoveBackslashUnlessRoot(OldPath), RemoveBackslashUnlessRoot(WizardDirValue)) = 0) or
(CompareText(RemoveBackslashUnlessRoot(ExtractFilePath(UnInstaller)), RemoveBackslashUnlessRoot(WizardDirValue)) = 0)
)
then
UninstallState := uiInconsistent;
end
else
begin
UninstallState := uiDone;
end;
end;
function LoadCFGFile(AFolder: String; var AList: TStringList): Boolean;
var
cfgfile: String;
begin
if AList = nil then
AList := TStringList.Create
else
AList.Clear;
cfgfile := AddBackslash(AFolder) + 'lazarus.cfg';
Result := FileExists(cfgfile);
if not Result then
exit;
AList.LoadFromFile(cfgfile);
end;
procedure CreateCFGFile(APCP: String; var AList: TStringList);
var
cfgfile: String;
begin
if AList = nil then
AList := TStringList.Create
else
AList.Clear;
AList.add('--primary-config-path=' + APCP);
end;
function ParseCFGFile(AFolder: String; var APrimConfDir: String): TCfgFileState;
var
s, cfgfile: String;
i: Integer;
l: TStringList;
begin
cfgfile := AddBackslash(AFolder) + 'lazarus.cfg';
Result := csNoFile;
if not FileExists(cfgfile) then
exit;
Result := csUnreadable;
l := TStringList.Create;
l.LoadFromFile(cfgfile);
for i := 0 to l.Count - 1 do
if copy(l[i], 1, 6) = '--pcp=' then
s := copy(l[i], 7, length(l[i]))
else
if copy(l[i], 1, 22) = '--primary-config-path=' then
s := copy(l[i], 23, length(l[i]));
l.Free;
if s = '' then
exit;
if (s[1] = '"') and (s[length(s)] = '"') then
s := copy(s, 2, length(s)-2)
else
if (s[1] = '''') and (s[length(s)] = '''') then
s := copy(s, 2, length(s)-2)
if s = '' then
exit;
if (not FileExists(AddBackslash(s) + 'environmentoptions.xml')) and
(not IsDirEmpty(s))
then
exit;
Result := csParsedOk;
APrimConfDir := s;
end;
procedure CurPageChanged(CurPageID: Integer);
var
@ -343,7 +489,28 @@ begin
m.ScrollBars := ssVertical;
m.Text := Format(CustomMessage('DuringInstall'), [#13#10]);
end;
if (CurPageID = wpSelectDir) and (CheckSecondInstall = nil) then
begin
WizardForm.DirEdit.Parent.Handle;
CheckSecondInstall := TCheckBox.Create(WizardForm);
CheckSecondInstall.Parent:=WizardForm.DirEdit.Parent;
CheckSecondInstall.Top := WizardForm.DirEdit.Top + WizardForm.DirEdit.Height + 10;
CheckSecondInstall.Left := WizardForm.DirEdit.Left;
CheckSecondInstall.Width := WizardForm.DirEdit.Parent.Width - WizardForm.DirEdit.Left;
CheckSecondInstall.Caption := CustomMessage('CheckSecondClick');
CheckSecondLabel := TLabel.Create(WizardForm);
CheckSecondLabel.Parent:=WizardForm.DirEdit.Parent;
CheckSecondLabel.AutoSize := False;
CheckSecondLabel.WordWrap := True;
CheckSecondLabel.Top := CheckSecondInstall.Top + CheckSecondInstall.Height + 10;
CheckSecondLabel.Left := WizardForm.DirEdit.Left;
CheckSecondLabel.Width := WizardForm.DirEdit.Parent.Width - WizardForm.DirEdit.Left;
CheckSecondLabel.Height := WizardForm.DirEdit.Parent.Height - CheckSecondLabel.Top - 15;
CheckSecondLabel.Caption := CustomMessage('CheckSecondInfo');
end;
end;
@ -352,43 +519,182 @@ var
s, folder: String;
FolderEmpty: Boolean;
begin
// by default go to next page
Result := true;
// if curpage is wpSelectDir check is filesystem
if CurPage = wpSelectDir then
begin
folder := WizardDirValue;
// by default go to next page
Result := true;
if Pos( ' ', folder ) > 0 then
begin
try
s := CustomMessage('FolderHasSpaces');
except
s := 'Selected folder contains spaces, please select a folder without spaces in it.';
end;
MsgBox(s, mbInformation, MB_OK );
Result := false;
exit;
end;
// if curpage is wpSelectDir check is filesystem
if (CurPage = wpSelectDir) then
begin
IsSecondaryUpdate := False;
folder := WizardDirValue;
UpdateUninstallInfo;
UnInstaller := RemoveQuotes(GetUninstallData('UninstallString'));
FolderEmpty := IsDirEmpty(folder);
if ((UninstallState = uiDone) or (UninstallState = UIOtherNeeded)) and not(FolderEmpty) then begin
// Dir NOT empty
try
s := CustomMessage('FolderNotEmpty');
except
s := 'The target folder is not empty. Continue with installation?';
if Pos( ' ', folder ) > 0 then
begin
MsgBox(SaveCustomMessage('FolderHasSpaces', 'Selected folder contains spaces, please select a folder without spaces in it.'),
mbInformation, MB_OK );
Result := false;
exit;
end;
Result := MsgBox(s, mbConfirmation, MB_YESNO) = IDYES;
FolderEmpty := IsDirEmpty(folder);
UpdateUninstallInfo;
if FolderEmpty then
exit;
if ( (CheckSecondInstall <> nil) and (CheckSecondInstall.Checked) ) then
begin
// Secondary
// ALways set "SecondPCP", if avail
case ParseCFGFile(folder, SecondPCP) of
csNoFile: begin
Result := False;
MsgBox(Format(CustomMessage('FolderForSecondNoFile'), [#13#10]), mbConfirmation, MB_OK);
exit;
end;
csUnreadable: begin
Result := False;
MsgBox(Format(CustomMessage('FolderForSecondBadFile'), [#13#10]), mbConfirmation, MB_OK);
exit;
end;
csParsedOk: begin
// TODO ask, depending on uninstaller availability
if (UninstallState = UIOtherNeeded) or (UninstallState = uiInconsistent)
then begin
MsgBox(Format(CustomMessage('FolderForSecondBadUninstall'), [#13#10]), mbConfirmation, MB_OK);
Result := False;
exit;
end
else
if ((UninstallState = uiDone) or (UninstallState = UIOtherNeeded)) or
(UninstallState = uiInconsistent)
then begin
Result := MsgBox(Format(CustomMessage('FolderForSecondUpgrading'), [#13#10, SecondPCP]), mbConfirmation, MB_YESNO) = IDYES;
IsSecondaryUpdate := True;
end;
end;
end;
// MUST always be loaded, if leaving this page
LoadCFGFile(folder, NewCFGFile);
end
else
begin
if ((UninstallState = uiDone) or (UninstallState = UIOtherNeeded)) or
(UninstallState = uiInconsistent)
then
begin
// Dir NOT empty
Result := MsgBox(SaveCustomMessage('FolderNotEmpty', 'The target folder is not empty. Continue with installation?'),
mbConfirmation, MB_YESNO) = IDYES;
end;
if Result and
(ParseCFGFile(folder, SecondPCP) = csParsedOk)
then begin
IsSecondaryUpdate := True;
LoadCFGFile(folder, NewCFGFile);
end;
end;
end;
if CurPage = wpAskConfDir.ID then begin
s := wpAskConfDir.Values[0];
if (not IsDirEmpty(s)) then begin
MsgBox(Format(CustomMessage('FolderForConfNotEmpty'), [#13#10]), mbConfirmation, MB_OK);
Result := False;
exit;
end;
SecondPCP := s;
CreateCFGFile(SecondPCP, NewCFGFile);
end;
if CurPage = wpInfoAfter then begin
if (CheckSecondInstall <> nil) and (CheckSecondInstall.Checked) then begin
if (NewCFGFile = nil) or (not FileExists(AddBackslash(WizardDirValue) + 'lazarus.cfg')) then
MsgBox('Something went wrong. The secondary config folder was not setup. Repeat the installation.', mbConfirmation, MB_OK);
end;
end;
end;
function ShouldSkipPage(PageId: Integer): Boolean;
begin
Result := False
if PageId = wpAskConfDir.ID then
Result := (IsSecondaryUpdate) or
( (CheckSecondInstall = nil) or (not CheckSecondInstall.Checked) );
// UnInst uses: SkipAskUninst()
end;
function UpdateReadyMemo(Space, NewLine,
MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo, MemoComponentsInfo, MemoGroupInfo,
MemoTasksInfo: String): String;
begin
Result := '';
if MemoUserInfoInfo <> '' then
Result := Result + MemoUserInfoInfo + NewLine;
if MemoDirInfo <> '' then
Result := Result + MemoDirInfo + NewLine;
if MemoTypeInfo <> '' then
Result := Result + MemoTypeInfo + NewLine;
if MemoComponentsInfo <> '' then
Result := Result + MemoComponentsInfo + NewLine;
if MemoGroupInfo <> '' then
Result := Result + MemoGroupInfo + NewLine;
if MemoTasksInfo <> '' then
Result := Result + MemoTasksInfo + NewLine;
if (CheckSecondInstall <> nil) and (CheckSecondInstall.Checked) then begin
if IsSecondaryUpdate then
Result := Result + Format(SaveCustomMessage('SecondTaskUpdate', ''), [NewLine, Space, SecondPCP])
else
Result := Result + Format(SaveCustomMessage('SecondTaskCreate', ''), [NewLine, Space, SecondPCP]);
end
else
if IsSecondaryUpdate then
Result := Result + Format(SaveCustomMessage('SecondTaskUpdate', ''), [NewLine, Space, SecondPCP]);
end;
function PrepareToInstall(var NeedsRestart: Boolean): String;
begin
Result := '';
if (CheckSecondInstall <> nil) and (CheckSecondInstall.Checked) then begin
if (NewCFGFile <> nil) then
try
NewCFGFile.SaveToFile(AddBackslash(WizardDirValue) + 'lazarus.cfg')
except
Result := 'Internal Error (1): Could not save CFG'
end
else begin
Result := 'Internal Error (2)'
end;
end
else
if (UninstallDoneState <> uiUnknown) and (IsSecondaryUpdate) and
(not FileExists(AddBackslash(WizardDirValue) + 'lazarus.cfg'))
then begin
// cfg was uninstalled / restore
if (NewCFGFile <> nil) then
try
NewCFGFile.SaveToFile(AddBackslash(WizardDirValue) + 'lazarus.cfg')
except
Result := 'Internal Error (3): Could not restore CFG for secondary install'
end
else
if (UninstDir = WizardDirValue) and (CFGFileForUninstDir <> nil) and
(CFGFileForUninstDir.count > 0)
then begin
try
CFGFileForUninstDir.SaveToFile(AddBackslash(WizardDirValue) + 'lazarus.cfg')
except
Result := 'Internal Error (4): Could not restore CFG for secondary install'
end
end
else begin
Result := 'Internal Error (5): Could not restore CFG for secondary install'
end;
if not Result then exit;
end;
end;
function GetDefDir( def: String ) : String;
@ -479,38 +785,78 @@ begin
UnInstUpdateGUI;
//UpdateUninstallInfo;
//FolderEmpty := IsDirEmpty(WizardDirValue);
// OldName, Registry 'DisplayName'
// OldPath, Registry 'Inno Setup: App Path'
// UnInstaller
if UninstallState = uiDestNeeded then begin
wpLabel2.Font.Color := clDefault;
wpCheckBox.Visible := False;
try
InitAskUninstall(FmtMessage(CustomMessage('OldInDestFolder1'), [OldName]),
CustomMessage('OldInDestFolder2'), CustomMessage('OldInDestFolder3'), CustomMessage('OldInDestFolder4'));
except
InitAskUninstall(
'Another installation of "'+OldName+'" exists in the destination folder. If you wish to uninstall first, please use the button below.',
'',
'',
''
);
end;
end
else
begin
wpLabel2.Font.Color := clRed;
wpCheckBox.Visible := True;
try
InitAskUninstall(FmtMessage(CustomMessage('OldInOtherFolder1'), [OldName, OldPath]),
CustomMessage('OldInOtherFolder2'), CustomMessage('OldInOtherFolder3'), CustomMessage('OldInOtherFolder4'));
except
InitAskUninstall(
'Another installation of "'+OldName+'" was found at "'+OldPath+'". Please use the button below to uninstall it now. If you wish to keep it, please tick the checkbox to continue.',
'Note: Using multiple copies of Lazarus is not supported by this installer.',
'Using several installations of Lazarus can lead to conflicts in files shared by all of the installations, such as the IDE configuration.',
'If you wish to use more than one installation, then you must do additional setup after this installation finished. Please see the Lazarus web page for this, and how to use --primary-config-path'
);
end;
case UninstallState of
uiDestNeeded: begin
wpLabel2.Font.Color := clDefault;
wpCheckBox.Visible := False;
if IsSecondaryUpdate then
InitAskUninstall(Format(SaveCustomMessage('OldSecondInDestFolder1', ''),
{}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]),
Format(SaveCustomMessage('OldSecondInDestFolder2', ''),
{}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]),
Format(SaveCustomMessage('OldSecondInDestFolder3', ''),
{}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]),
Format(SaveCustomMessage('OldSecondInDestFolder4', ''),
{}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]))
else
InitAskUninstall(Format(SaveCustomMessage('OldInDestFolder1', ''),
{}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]),
Format(SaveCustomMessage('OldInDestFolder2', ''), {}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]),
Format(SaveCustomMessage('OldInDestFolder3', ''), {}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]),
Format(SaveCustomMessage('OldInDestFolder4', ''), {}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]));
end;
UIOtherNeeded: begin
wpLabel2.Font.Color := clRed;
wpLabel2.Font.Color := clRed;
wpCheckBox.Visible := True;
//if IsSecondaryUpdate then
// InitAskUninstall(Format(SaveCustomMessage('InOtherFolder1', ''),
// {}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]),
// Format(SaveCustomMessage('OldSecondInOtherFolder2', ''),
// {}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]),
// Format(SaveCustomMessage('OldSecondInOtherFolder3', ''),
// {}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]),
// Format(SaveCustomMessage('OldSecondInOtherFolder4', ''),
// {}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]));
//else
InitAskUninstall(Format(SaveCustomMessage('OldInOtherFolder1', ''),
{}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]),
Format(SaveCustomMessage('OldInOtherFolder2', ''),
{}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]),
Format(SaveCustomMessage('OldInOtherFolder3', ''),
{}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]),
Format(SaveCustomMessage('OldInOtherFolder4', ''),
{}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]));
//end;
end;
uiInconsistent: begin
wpLabel1.Font.Color := clRed;
wpLabel2.Font.Color := clRed;
wpCheckBox.Visible := True;
//if IsSecondaryUpdate then
// InitAskUninstall(Format(SaveCustomMessage('OldSecondInBadFolder1', ''),
// {}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]),
// Format(SaveCustomMessage('OldSecondInBadFolder2', ''),
// {}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]),
// Format(SaveCustomMessage('OldSecondInBadFolder3', ''),
// {}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]),
// Format(SaveCustomMessage('OldSecondInBadFolder4', ''),
// {}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]));
//else
InitAskUninstall(Format(SaveCustomMessage('OldInBadFolder1', ''),
{}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]),
Format(SaveCustomMessage('OldInBadFolder2', ''),
{}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]),
Format(SaveCustomMessage('OldInBadFolder3', ''),
{}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]),
Format(SaveCustomMessage('OldInBadFolder4', ''),
{}[#13#10, OldName, OldPath, UnInstaller, SecondPCP]));
//end;
end;
end;
end;
@ -527,7 +873,15 @@ begin
UnInstaller := RemoveQuotes(GetUninstallData('UninstallString'));
b := (UnInstaller <> '') and FileExists(UnInstaller);
if b then b := Exec(UnInstaller, '/SILENT /NORESTART','', SW_SHOW, ewWaitUntilTerminated, i);
if b then begin
LoadCFGFile(WizardDirValue, CFGFileForUninstDir);
UninstDir := WizardDirValue;
if UninstallState = uiInconsistent then
b := Exec(UnInstaller, '/VERBOSE /NORESTART','', SW_SHOW, ewWaitUntilTerminated, i)
else
b := Exec(UnInstaller, '/SILENT /NORESTART','', SW_SHOW, ewWaitUntilTerminated, i);
end;
if not b then
MsgBox('Uninstall failed.', mbConfirmation, MB_OK)
else begin
@ -633,6 +987,27 @@ begin
UninstallState := uiUnknown;
UninstallDoneState := uiUnknown;
/////////////////////////
wpAskConfDir := CreateInputDirPage(wpSelectDir,
CustomMessage('SecondConfCapt'), CustomMessage('SecondConfCapt2'),
CustomMessage('SecondConfBody'),
False, 'laz_conf');
wpAskConfDir.Add('Folder for config');
end;
//function InitializeUninstall(): Boolean;
//var i: integer;
//begin
// Result := True;
// for i := 0 to ParamCount - 1 do
// if ParamStr(i) = '/VERBOSE' then
// Result :=
// MsgBox(Format(CustomMessage('UninstVerbose'),
// {}[RemoveQuotes(GetUninstallData('Inno Setup: App Path')),
// GetUninstallData('DisplayName')]),
// mbConfirmation, MB_YESNO) = IDYES;
//
//end;