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 indy 组件包里的 idhttp 组件使用 get 方法下载文件限速的方法

Delphi 通过窗口特定标题锁定窗口

Delphi 随机函数单元urandomutils

Delphi中关于canvas.textout的用法

Delphi 相对路径

Delphi xe2 - 点点滴滴

Delphi 官方 processmessages 用法代码例子

Delphi 中的md5实现方法及Delphi2009和Delphi2010中用法

Delphi memo1文本搜索并高亮

Delphi - 利用dll编程控制摄像头实现拍照、录制视频

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

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