paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 08:59:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

Win-Installer: ability to create secondary installations. Fix saving cfg file, if target folder does not yet exist.

Browse Source 
git-svn-id: trunk@42520 -
This commit is contained in:
martin 2013-08-29 18:33:39 +00:00
parent 8b58ad1940
commit c55cba4d5d
1 changed files with 37 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -574,10 +574,44 @@ begin
CheckSecondLabel.Caption := CustomMessage('CheckSecondInfo');
end;
if CurPageID = wpInfoAfter then begin
if CurPageID = wpFinished 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);
if (NewCFGFile <> nil) then
try
NewCFGFile.SaveToFile(AddBackslash(WizardDirValue) + 'lazarus.cfg')
ForceDirectories(SecondPCP);
except
MsgBox('Internal Error (1): Could not save CFG for secondary install', mbConfirmation, MB_OK);
end
else begin
MsgBox('Internal Error (2): Could not save CFG for secondary install', mbConfirmation, MB_OK);
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
MsgBox('Internal Error (3): Could not restore CFG for secondary install', mbConfirmation, MB_OK);
end
else
if (UninstDir = WizardDirValue) and (CFGFileForUninstDir <> nil) and
(CFGFileForUninstDir.count > 0)
then begin
try
CFGFileForUninstDir.SaveToFile(AddBackslash(WizardDirValue) + 'lazarus.cfg')
except
MsgBox('Internal Error (4): Could not restore CFG for secondary install', mbConfirmation, MB_OK);
end
end
else begin
MsgBox('Internal Error (5): Could not restore CFG for secondary install', mbConfirmation, MB_OK);
end;
end;
end;
end;
@ -732,43 +766,6 @@ function PrepareToInstall(var NeedsRestart: Boolean): String;
begin
Result := '';
ForcePrimaryAppId := False;
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;
end;
end;
procedure InitAskUninstall(s1, s2, s3, s4: String);