다음과 같이 코드 코드를 복사합니다.
//파일이 사용되고 있는지 확인
function FileINUse(파일 이름:문자열):boolean;
var
사용:파일;
시작하다
결과:=false;
할당파일(사용,파일이름);
노력하다
재설정(사용함);
제외하고
E:EInOutError에서 수행
시작하다
e.ErrorCode=32이면
시작하다
결과:=true;
출구;
끝;
끝;
끝;
파일 닫기(사용);
끝;
절차 TForm1.Button1Click(Sender: TObject);
OpenDialog1.Execute이면
시작하다
if fileInuse(OpenDialog1.filename) 다음
ShowMessage('파일이 사용중입니다')
또 다른
ShowMessage('사용되지 않음');
끝;