最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

判斷文件是否正在被使用的JS代碼

 更新時間:2013年12月21日 16:10:54   作者:  
這篇文章主要介紹了判斷文件是否正在被使用的JS代碼,有需要的朋友可以參考一下

復(fù)制代碼 代碼如下:

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

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;

相關(guān)文章

最新評論

韶关市| 白城市| 玛曲县| 咸阳市| 富阳市| 仪征市| 壶关县| 巴青县| 彭山县| 修武县| 根河市| 万盛区| 交城县| 武胜县| 厦门市| 陕西省| 江山市| 镇沅| 来宾市| 抚顺县| 安阳县| 鲁山县| 镇雄县| 安泽县| 高邮市| 金溪县| 临洮县| 潼关县| 昭通市| 深水埗区| 黄梅县| 虞城县| 阳春市| 西平县| 北流市| 醴陵市| 沙洋县| 万全县| 藁城市| 习水县| 新宁县|