如何有效地等待文件解锁？

Question

在我的线程代码中,我需要等待一个文件被解锁才能进一步处理它.

该文件可能被另一个我无法控制的外部线程锁定.

目前我在我的线程中使用此代码:

...
while IsFileInUse(FileName) and not Terminated do
begin
  Sleep(100);
end;
// process the file

IsFileInUse 码:

function IsFileInUse(const FileName: string): Boolean;
var
  Handle: HFILE;
begin
  Handle := CreateFile(PChar(FileName),
    GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  Result := (Handle = INVALID_HANDLE_VALUE);
  if not Result then
    CloseHandle(Handle);
end;

是否有更好,更有效的方法来避免Sleep？

Answer 1

不，没有任何 API 可以在可以打开文件时收到通知。监视此类活动的程序（例如 ProcessMonitor）使用文件系统驱动程序（链接）。

不过，请考虑放弃测试打开文件，因为它可能会导致文件在测试打开和实际打开进行处理之间再次变得不可用。