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 xe tparallel.for的用法

Delphi 操作webbrowser 元素值

Delphi使用sqlite数据库时的中文路径问题

Delphi 在状态条中显示进度条，webbrowser示例

Delphi 2009 之 tstringbuilder 类[4]: insert 与 remove

Delphi 实现软件版验证码

Delphi firemonkey 绘图

Delphi 计算运行耗时的方法1

Delphi firedac 下的 sqlite [2] - 第一个例子

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

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