本文整理自网络,侵删。
//判断文件是否正在被使用
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;
相关阅读 >>
Delphi中的copy,delete,pos和leftstr,rightstr的用法
Delphi 10 下提示sharedactivitycontext错误的解决方法
Delphi有用的函数extractfilename、extractfilepath
更多相关阅读请进入《Delphi》频道 >>