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

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

 更新時間:2013年12月21日 16:10:54   作者:  
這篇文章主要介紹了判斷文件是否正在被使用的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;

相關文章

最新評論

周口市| 禹州市| 朝阳区| 九江市| 上虞市| 柳林县| 贡山| 泽州县| 新营市| 宜君县| 莆田市| 山西省| 常熟市| 凉山| 永靖县| 岑溪市| 九江县| 安新县| 牟定县| 响水县| 剑川县| 闵行区| 雷波县| 杭锦旗| 潼南县| 枣强县| 鹤山市| 宝坻区| 新邵县| 西青区| 永安市| 开阳县| 道真| 永定县| 资中县| 井陉县| 沭阳县| 来凤县| 建水县| 松原市| 吉安县|