Delphi 2010 - 文件正在使用中吗？

Question

我有一个可以检查本地文件是否正在使用的功能。 但是，如果我映射网络驱动器并尝试检查映射驱动器中的文件是否正在使用，则该函数的结果总是错误的。 在将大文件复制到映射驱动器之前，我需要等待，完成后我重命名文件。 如果文件未使用，那么我开始执行各种操作，否则我再等一分钟并再次检查。 如何修改以下函数以使用不断复制的映射驱动器文件？

谢谢

function IsFileInUse(FileName: TFileName): Boolean;
var
  HFileRes: HFILE;
begin
  Result := False;
  if not FileExists(FileName) then
  begin
  showmessage('Fisierul "'+Filename+'" nu exista!');
  Exit;
  end
  else
  begin
  HFileRes := CreateFile(PChar(FileName),
                         GENERIC_READ or GENERIC_WRITE,
                         0,
                         nil,
                         OPEN_EXISTING,
                         FILE_ATTRIBUTE_NORMAL,
                         0);
  Result := (HFileRes = INVALID_HANDLE_VALUE);
  if not Result then
    CloseHandle(HFileRes);
  end;
end;

Answer 1

您声称CreateFile 成功以独占模式打开文件，而另一方正在写入该文件。可能的解释：

1. 您输入的文件名有误，您打开的文件不是正在使用的文件。
2. 对方正在写入文件而没有锁定它。换句话说，它以允许其他方读写的共享模式打开文件。这将是非常不寻常的。如果是这种情况，那么您需要修复其他进程。
3. 远程文件服务器已损坏并且无法使用锁。我认为这不太可能。

我认为最终选项可以立即被拒绝。选项 2 似乎不太可能。剩下选项 1。您可以锁定文件，因为它没有被锁定。

我还要评论该函数是虚假的。你可以删除它。只需尝试您需要执行的任何操作。如果该操作因共享冲突而失败，您就知道该文件已被锁定。还要考虑使用该函数的任何代码中的竞争条件。现在解锁文件这一事实并不能阻止另一方在您对其进行任何操作之前锁定该文件。