FIX: FileLock function

This commit is contained in:
Alexander Koblov 2017-11-27 18:29:22 +00:00
commit b399e935c5

View file

@ -120,7 +120,7 @@ var
lockerr: cint;
begin
Result:= Handle;
case (Mode and $A0) of
case (Mode and $F0) of
fmShareCompat,
fmShareExclusive:
lockop:= LOCK_EX or LOCK_NB;