Chinaunix首页 | 论坛 | 博客
  • 博客访问: 317214
  • 博文数量: 128
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 1611
  • 用 户 组: 普通用户
  • 注册时间: 2013-08-19 11:49
文章分类

全部博文(128)

文章存档

2018年(2)

2016年(2)

2014年(10)

2013年(114)

我的朋友

分类: JavaScript

2013-12-23 11:39:44

代码如下:

//判断文件是否正在被使用
unity3d脚本
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;
阅读(513) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~