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;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour22/11/2001
VisualisationVu 873 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Fichier
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur