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

发布时间：2023-09-02 13:34:59 所属栏目：教程来源：

导读：代码如下:

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

function FileINUse(filename:String):boolean;

var

usein:file;

begin

result:=false;

assignfile(usein,FileName);

try

res

代码如下:

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

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;

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!