Tester si fichier déjà ouvert

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
{ ============================================================================== }
function FichierOuvert(NomFichier : string; CodeRetour:Integer):Boolean;
//Test si un fichier est ouvert ou indisponible
// CodeRetour = 0 pas ouvert - 32 : violation de partage - sinon autre erreur
Var
   F:TextFile;
begin
  FichierOuvert := True ;
  // Test du fichier
  AssignFile(F,NomFichier);
  {$I-}
  Reset(F);
  {$I+}
  CodeRetour := IOResult ;
  Case IOResult Of
    // Pas d'erreur
    0 :Begin
         CloseFile(F);
         FichierOuvert := False ;
//         ShowMessage('Le fichier existe et n''est pas ouvert.');
       End;
//         L'erreur 32 est une violation de partage
    32:
       Begin
//          ShowMessage('Le fichier est déjà ouvert.');
       End ;
  Else
    // Autre erreur
//    ShowMessage('Erreur '+IntToStr(IOResult));
  End;
End;

GetFileAttributes(PChar(Filename))<>INVALID_FILE_ATTRIBUTES

1
2
3
4
5
6
7
8
9
10
11
procedure TF_Princ.Button3Click(Sender: TObject);
Var
  I : Integer ;
begin
  I := isOpenableFile('D:\DESSIN\44304.jpg') ;
  ShowMessage('Result : '+IntToStr(I)) ;
  I := isOpenableFile('D:\DESSIN\6094672.jpg') ;
  ShowMessage('Result : '+IntToStr(I)) ;
  I := isOpenableFile('D:\DESSIN\44304.jpg') ;
  ShowMessage('Result : '+IntToStr(I)) ;
end;