FIX: SetFileTime parameters (fixes #2697)

(cherry picked from commit 9c80e25bb4)
This commit is contained in:
Alexander Koblov 2026-01-13 18:51:59 +03:00
commit 1eac2e755a

View file

@ -887,7 +887,7 @@ begin
if (Mode and fmOpenNoATime <> 0) then
begin
if (Result <> feInvalidHandle) then
SetFileTime(Result, nil, @ft, @ft)
SetFileTime(Result, nil, @ft, nil)
else if GetLastError = ERROR_ACCESS_DENIED then
Result := mbFileOpen(FileName, Mode and not fmOpenNoATime);
end;