Delphi中如何确认文件已完全移动完成，而非仍处于传输过程中？

操作系统执行文件移动操作时，会先在目标路径创建文件目录条目，再写入文件内容。FileExists 仅判断文件目录条目是否存在，不校验内容是否写入完成，因此会在移动过程中提前返回True。

分两种场景对应处理：

场景1：移动操作由你自己的代码触发 #

Delphi 内置的文件移动方法都是同步执行的，只要方法返回成功，就代表文件已经完整移动到目标路径，不需要额外做存在性校验：

• 调用API MoveFile 或 MoveFileEx，返回值为True时代表移动完成
• 调用RTL方法 TFile.Move（IOUtils单元），没有抛出异常即代表移动完成
  直接在移动方法执行成功后更新数据库即可，完全避免时序问题。

场景2：移动/写入操作由第三方程序触发（你仅监听目标文件夹变动） #

此时无法通过移动方法的返回值判断状态，可以通过尝试以独占写模式打开文件的方式判断文件是否还被占用：只要文件还在写入/移动过程中，就会被操作系统持有独占锁，你无法获取独占写权限。
Delphi 示例代码如下：

uses
  SysUtils, Math;

function IsFileTransferComplete(const FilePath: string; MaxWaitMs: Cardinal = 30000): Boolean;
var
  FileHandle: THandle;
  StartTick: Cardinal;
  WaitInterval: Cardinal;
begin
  Result := False;
  StartTick := GetTickCount;
  WaitInterval := 500; // 每500ms检测一次
  while GetTickCount - StartTick < MaxWaitMs do
  begin
    // 以独占写模式尝试打开文件
    FileHandle := FileOpen(FilePath, fmOpenWrite or fmShareExclusive);
    if FileHandle <> INVALID_HANDLE_VALUE then
    begin
      FileClose(FileHandle);
      Result := True;
      Break;
    end;
    // 打开失败说明还被占用，等待后重试
    Sleep(WaitInterval);
  end;
end;

调用该函数返回True后再更新数据库即可，可根据你常见的文件大小调整最大等待时间MaxWaitMs的取值。

• 如果是跨分区移动大文件，建议额外校验目标文件和源文件的哈希值或者大小一致，再更新数据库，进一步降低异常概率
• 不要依赖文件大小不变作为判断依据，大文件写入过程中可能出现短暂的大小停滞，可靠性远低于独占打开判断

内容的提问来源于stack exchange，提问作者Double U