delphi 判断文件是否被占用

本文整理自网络，侵删。

 function IsFileInUse(fName: string) : boolean;
var
  HFileRes: HFILE;
begin
  Result := False;
  if not FileExists(fName) then begin
    Exit;
  end;

  HFileRes := CreateFile(PChar(fName)
    ,GENERIC_READ or GENERIC_WRITE
    ,0
    ,nil
    ,OPEN_EXISTING
    ,FILE_ATTRIBUTE_NORMAL
    ,0);

  Result := (HFileRes = INVALID_HANDLE_VALUE);

  if not(Result) then begin
    CloseHandle(HFileRes);
  end;
end; 

相关阅读 >>

Delphi登陆验证方法

Delphi getdir 获取指定驱动器的当前路径名

Delphi实现win10下Delphi 10.3.1 inline hook 调试器法获取寄存器并修改

Delphi 利用tmemorystream对象存取缓存

Delphi中对url进行编码和解码

Delphi-改进获取文件md5 hash方法

Delphi 10 seattle中的画布上绘制字符

Delphi 获取本机 hostname ip address

Delphi 2009 新增单元 character[1]: toupper、tolower - 字符与字符串的大小写转换

Delphi webservices传base64字串

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 判断文件是否被占用