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

本文主要介绍判断文件是否正在被使用的JS代码，有需要的朋友可以参考一下，希望对大家有所帮助！

复制代码 代码如下:

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

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;