判断一个文件是否正在被使用

最新推荐文章于 2021-06-01 11:48:04 发布

原创最新推荐文章于 2021-06-01 11:48:04 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #file #function

Delphi Function 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了两种检查文件是否被占用的方法，通过使用FileOpen和CreateFile函数来判断文件是否处于独占模式，有助于避免在文件操作中出现冲突。

方法一：

function IsFileInUse(FileName: string): Boolean;
var
  H: THandle;
begin
  Result := False;
  try
    H := FileOpen(FileName, fmShareExclusive);
    if H=INVALID_HANDLE_VALUE then
      Result := True;
    if not Result then
      FileClose(H);
  except

  end;
end;

方法二：

function IsFileInUse(FileName: string): Boolean;
var
  hFileRes: HFILE;
begin
  Result := False;
  try
    hFileRes := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil,
      OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
    if hFileRes=INVALID_HANDLE_VALUE then
      Result := True;
    if not Result then
      CloseHandle(hFileRes);
  except

  end;
end;