Discussion :

[Drooxy]

Bonsoir,

Comment faire pour détecter qu'un fichier (de n'importe quel type) est déjà utilisé par une autre application ?

Je vois bien CreateFile (ou CreateFileA... la différence entre les deux m'échappant) mais la multitude d'attributs ne rend pas la chose facile !

Quelqu'un peut-il m'aider à y voir plus clair ?

Merci d'avance
Drooxy

[Nono40]

Je ne sais pas si c'est la meilleure solution mais j'ai trouvé ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
Var F:TextFile;
begin
  AssignFile(F,'C:\temp\essai.doc');
  {$I-}
  Reset(F);
  {$I+}
  Case IOResult Of
    0 :CloseFile(F);
    32:ShowMessage('Le fichier est déjà ouvert.');
  Else
    ShowMessage('Erreur '+IntToStr(IOResult));
  End;
end;

[Lung]

Sinon, j'ai lu ca quelque part (jamais testé ):

Utilise l'API windows OpenFile en mode OF_SHARE_EXCLUSIVE. Si ça échoue, le fichier est déjà ouvert !

[delphi-fan]

OpenFile n'est là que pour la compatibilité 16 bits. Il faut utiliser la fonction CreateFile . Je propose (sans l'avoir vérifié) l'appel suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
var h : Thandle;
h := CreateFile(PChar(Nom_du_fichier), 
         GENERIC_READ or GENERIC_WRITE,  // accès en écriture possible ?
         FILE_SHARE_READ or FILE_SHARE_WRITE, 
         nil, 
         OPEN_EXISTING,   // on veut ouvrir et non créer
         FILE_ATTRIBUTE_NORMAL, 
         0); 
if h = INVALID_HANDLE_VALUE then showmessage ('fonction déjà utilisée');

Normalement, si une application utilise déjà le fichier en écriture, la fonction ci-dessus devrait échouer .......

A+

[Drooxy]

Merci à tous !

J'essaie ta solution ce soir, Delphi-fan, et je reviendrai sur ce message pour l'enrichir ou le 'résoudre'...

Cordialement,
Drooxy

[Drooxy]

(re)bonjour,

J'ai fait un test simple en ouvrant un fichier (todel2.txt) avec notepad... mais le createfile ne me remonte pas le fait que le fichier est déjà ouvert... peut-être un problème de paramètres ? En tous cas je ne trouve pas la solution !

Help encore !

Merci d'avance,
Drooxy

[Nono40]

Notepad est un mauvais exemple, car il ne vérrouille pas le fichier. Une fois que le fichier est lu, il est refermé. Il est donc possible de l'ouvrir avec une autre application ou de le renommer.

Essaye avec Word ou Excel.

[Drooxy]

OK ! Merci à tous pour vos réponses. Je joins ci-dessous un code qui marche à merveille:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
function FileInUse(AFile:string):Boolean;
var
  h: Thandle;
begin
  Result:=False;
  h:=CreateFile(PChar(AFile),
                GENERIC_WRITE,
                FILE_SHARE_WRITE,
                nil,
                OPEN_EXISTING,
                FILE_ATTRIBUTE_NORMAL,
                0);
  if h = INVALID_HANDLE_VALUE then
    begin
      Result:=True;
    end;
 
  CloseHandle(h);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if FileInUse('C:\Temp\Todel1.doc') then
    ShowMessage('Fichier en cours d''utilisation');
end;

Merci encore et bonne journée !
Drooxy

[delphi-fan]

On est bien d'accord que cet appel ne fait que déduire qu'un fichier est déjà ouvert en écriture par une autre application : si cette appli l'a seulement ouvert en lecture, alors la fonction ne te le signalera pas !

[Drooxy]

Oui.

Merci pour cette précision... et pour ton aide.

Drooxy