diff --git a/components/lazautoupdate/latest_stable/updatepack/umainform.pas b/components/lazautoupdate/latest_stable/updatepack/umainform.pas index 9246bd882..f6ef1a75d 100644 --- a/components/lazautoupdate/latest_stable/updatepack/umainform.pas +++ b/components/lazautoupdate/latest_stable/updatepack/umainform.pas @@ -840,6 +840,12 @@ begin ShowMessageFmt('Zipfile ''%s'' is OK', [ProfileRec.ZipFileName]) else ShowMessage('Unable to create Zipfile. Is the App path and/or WhatsNew path valid?'); + // Save the current Profile + AppConfig.WriteString('Current', 'Profilename', szCurrentProfileName); + ReadFromGUI(szCurrentProfileName); + WriteProfileToINI(szCurrentProfileName); + bCurrentProfileSaved := True; + // Make up the text for the memo sz := 'Zipfile and INI file are located at:' + LineEnding; sz += ProfileRec.Outdir + LineEnding + LineEnding; diff --git a/components/lazautoupdate/latest_stable/updatepack/updatepack.lpi b/components/lazautoupdate/latest_stable/updatepack/updatepack.lpi index c87a18782..4df46f28f 100644 --- a/components/lazautoupdate/latest_stable/updatepack/updatepack.lpi +++ b/components/lazautoupdate/latest_stable/updatepack/updatepack.lpi @@ -22,8 +22,8 @@ - - + + @@ -159,6 +159,9 @@ + + + diff --git a/components/lazautoupdate/latest_stable/updatepack/updatepack.lpr b/components/lazautoupdate/latest_stable/updatepack/updatepack.lpr index 286257ef0..15e4214c7 100644 --- a/components/lazautoupdate/latest_stable/updatepack/updatepack.lpr +++ b/components/lazautoupdate/latest_stable/updatepack/updatepack.lpr @@ -34,7 +34,8 @@ Const C_PFX = C_OS + C_BITNESS; begin Application.Title:='LazAutoUpdate Update Pack'; - Application.Title:=Application.Title + ' (' + C_PFX + ' edition)'; + // Line below gives unique folders in GetAppConfig call + // Application.Title:=Application.Title + ' (' + C_PFX + ' edition)'; RequireDerivedFormResource := True; Application.Initialize; Application.CreateForm(Tmainform, mainform); diff --git a/components/lazautoupdate/latest_stable/updatepack/updatepack.res b/components/lazautoupdate/latest_stable/updatepack/updatepack.res index 5474b0b02..e0072bff1 100644 Binary files a/components/lazautoupdate/latest_stable/updatepack/updatepack.res and b/components/lazautoupdate/latest_stable/updatepack/updatepack.res differ