diff options
| -rw-r--r-- | src/corelib/fpg_pofiles.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/corelib/fpg_pofiles.pas b/src/corelib/fpg_pofiles.pas index 656e776d..76e9216c 100644 --- a/src/corelib/fpg_pofiles.pas +++ b/src/corelib/fpg_pofiles.pas @@ -267,7 +267,7 @@ var f: TStream; begin if AFilename <> '' then - f := TFileStream.Create(AFilename, fmOpenRead); + f := TFileStream.Create(AFilename, fmOpenRead or fmShareDenyNone); try Self.Create(f); finally @@ -418,7 +418,7 @@ begin // Now fpGUI translation if (AFilename = '') or (not fpgFileExists(AFilename)) then Exit; - f := TFileStream.Create(AFilename, fmOpenRead); + f := TFileStream.Create(AFilename, fmOpenRead or fmShareDenyNone); try s := ''; Size := f.Size - f.Position; |