delphi 判断文件是否被使用

本文整理自网络，侵删。

 
function IsFileInUse(fName: string ): boolean;
var
  HFileRes: HFILE;
begin
  Result :=false;
  if not FileExists(fName) then exit;
  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
      CloseHandle(HFileRes);
end;
 

相关阅读 >>

Delphi unknown picture file extension (.jpg) 错误提示

Delphi �o置系�y�r�g

Delphi 静态调用dll和动态调用dll优缺点

Delphi xe7 up1 调用android振动功能

Delphi 通用字符串函数

如何把 Delphi 自带的内存泄露写到日志

Delphi 如何从url提取文件名？

Delphi使用zlib压缩和解压文件

Delphi case of

Delphi 获取系统日期时间

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

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