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 相对路径和绝对路径的转换

Delphi nativexml的中文支持

Delphi 把一个ico转换为bmp

Delphi idhttp.post超时导致整个线程停止问题解决

Delphi操作unicode字符

Delphi 7中ado控件打开access数据库文件

Delphi 获取当前目录下的.txt文本不要带后缀扩展名

Delphi 软件版本称呼

Delphi实现变速齿轮

Delphi使用spcomm实现串口通信 基础知识

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

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