次のようにコードをコピーします。
//ファイルが使用されているかどうかを判断する
関数 FileINUse(ファイル名:文字列):ブール値;
変数
使用:ファイル;
始める
結果:= false;
assignfile(usein,FileName);
試す
リセット(使用中);
を除外する
E:EInOutError で実行します
始める
e.ErrorCode=32 の場合
始める
結果:= true;
出口;
終わり;
終わり;
終わり;
ファイルを閉じる(使用);
終わり;
プロシージャ TForm1.Button1Click(送信者: TObject);
OpenDialog1.Execute の場合
始める
if fileInuse(OpenDialog1.filename) then
ShowMessage('ファイルは使用中です')
それ以外
ShowMessage('未使用');
終わり;