当前位置:小鱼儿玄机二站 > 前端技术 > 判断文件是否正在被使用的JS代码

判断文件是否正在被使用的JS代码

文章作者:前端技术 上传时间:2019-09-03

复制代码 代码如下:

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

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;

代码如下: //判断文件是否正在被使用 function FileINUse(filename:String):boolean; var usein:file; begin result:=false; assignfile(usein,FileName); try res...

本文由小鱼儿玄机二站发布于前端技术,转载请注明出处:判断文件是否正在被使用的JS代码

关键词: