Show type of exception happening through AppSettings.ExportSettings

This commit is contained in:
Ansgar Becker
2025-01-31 10:49:55 +01:00
parent dc2aa45a7b
commit 8faf2ccac9

View File

@ -4517,7 +4517,7 @@ begin
except except
on E:Exception do begin on E:Exception do begin
FPortableModeReadOnly := True; FPortableModeReadOnly := True;
Raise Exception.Create(E.Message + CRLF + CRLF Raise Exception.Create(E.ClassName + ': ' + E.Message + CRLF + CRLF
+ f_('Switching to read-only mode. Settings won''t be saved. Use the command line parameter %s to use a custom file path.', ['--psettings']) + f_('Switching to read-only mode. Settings won''t be saved. Use the command line parameter %s to use a custom file path.', ['--psettings'])
); );
end; end;