delphi 判断文件是否正在被使用

本文整理自网络，侵删。

 
//判断文件是否正在被使用 

function FileINUse(filename:String):boolean;
var
  usein:file;
begin
  result:=false;
  assignfile(usein,FileName);
  try
    reset(Usein);
  except
    on E:EInOutError do
    begin
      if e.ErrorCode=32 then
      begin
        result:=true;
        exit;
      end;
    end;
  end;
  closefile(usein);
end;

procedure TForm1.Button1Click(Sender: TObject);
  if OpenDialog1.Execute then
  begin
    if fileInuse(OpenDialog1.filename) then
      ShowMessage('文件正在使用中')
    else
      ShowMessage('没有使用');
  end;
 

相关阅读 >>

Delphi findfiles获取目录下所有文件

Delphi getfilehashmd5

使用Delphi启动和关闭外部应用程序

Delphi createthread的线程传参数（小熊论坛的）

Delphi 将自己的app.ico应用程序图表添加到dephi资源文件res中

Delphi 生成可以控制最大32位随机英文数字字符串

Delphi xe 获取硬盘id序列号

Delphi json 转换成 tfdmemtable

Delphi 双击隐藏tabsheet

Delphi 把exe嵌入到自己的exe中。Delphi xe3

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

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