sfs: do not lock files at all

[d2df-sdl.git] / src / sfs / sfsPlainFS.pas

diff --git a/src/sfs/sfsPlainFS.pas b/src/sfs/sfsPlainFS.pas
index 81eb440964a7459bea276e1f401de216d221a0e1..c46d83f8fee1b2d9df4bc74cb143795155426049 100644 (file)
--- a/src/sfs/sfsPlainFS.pas
+++ b/src/sfs/sfsPlainFS.pas
@@ -650,7 +650,7 @@ begin
     kill := false;
     try
       try
-        fs := TFileStream.Create(fFileName, fmOpenRead or fmShareDenyWrite);
+        fs := TFileStream.Create(fFileName, fmOpenRead or {fmShareDenyWrite}fmShareDenyNone);
         kill := true;
       except
         fs := fFileStream;
@@ -668,7 +668,7 @@ begin
     kill := false;
     try
       try
-        fs := TFileStream.Create(fFileName, fmOpenRead or fmShareDenyWrite);
+        fs := TFileStream.Create(fFileName, fmOpenRead or {fmShareDenyWrite}fmShareDenyNone);
         kill := true;
       except
         fs := fFileStream;
@@ -754,6 +754,6 @@ var
 initialization
   pakf := TSFSPlainVolumeFactory.Create();
   SFSRegisterVolumeFactory(pakf);
-finalization
-  SFSUnregisterVolumeFactory(pakf);
+//finalization
+//  SFSUnregisterVolumeFactory(pakf);
 end.