判斷檔案是否正在被使用的JS代碼

判斷檔案是否正在被使用的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;