diff --git a/src/sfs/sfsPlainFS.pas b/src/sfs/sfsPlainFS.pas
index 84409bdc588f801f6b316eafd7cb83381bdb2afa..c46d83f8fee1b2d9df4bc74cb143795155426049 100644 (file)
--- a/src/sfs/sfsPlainFS.pas
+++ b/src/sfs/sfsPlainFS.pas
kill := false;
try
try
- fs := TFileStream.Create(fFileName, fmOpenRead or fmShareDenyWrite);
+ fs := TFileStream.Create(fFileName, fmOpenRead or {fmShareDenyWrite}fmShareDenyNone);
kill := true;
except
fs := fFileStream;
kill := false;
try
try
- fs := TFileStream.Create(fFileName, fmOpenRead or fmShareDenyWrite);
+ fs := TFileStream.Create(fFileName, fmOpenRead or {fmShareDenyWrite}fmShareDenyNone);
kill := true;
except
fs := fFileStream;