确定该文件是否正在使用的js代码。

复制代码代码如下所示：
是否正在使用文件来确定 /

功能fileinuse（文件名：字符串）：布尔；
VaR
Usein：文件；
开始
结果：=假；
assignfile（使用，文件名）；
尝试
复位（在）；
除了
E：EInOutError
开始
如果e.errorcode = 32
开始
结果：=真；
出口;
结束；
结束；
结束；
关闭一个打开的文件（使用）；
结束；

程序tform1.button1click（发件人：TObject）；
如果opendialog1执行之后。
开始
如果fileinuse（opendialog1。文件名）然后
被（文件正在使用）
其他的
被（不使用）；
结束；