Vérifier si un fichier peut être ouvert

Function FileCanBeOpened( Const fname: String ): Boolean;
Var
fhandle: Integer;

Begin
try
fhandle := FileOpen( fname, fmOpenRead or fmShareExclusive );
If fhandle > 0 Then Begin
Result := True;
FileClose( fhandle );
End
Else
Result := False;
except
Result := False
end;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Opendialog1.Execute then
begin
if FileCanBeOpened(Opendialog1.FileName) then
begin
ShowMessage('Le fichier est en cours d''utilisation !');
end;
end;
end;