Discussion :

[fusef]

bonjour a tous,
j ai trouver sa sur le forum mais cela ne marche pas pour les fichier ouvert en lecture seul une idee serait sympa


merci
a+
fusef

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
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;

[Laurent Dardenne]

Salut,
et en modifiant l'attribut ?

Code :

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

FILE_SHARE_WRITE

par

Code :

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

FILE_SHARE_READ

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/base/createfile.asp

[fusef]

ben je vais essayer
merci de l info
a+
fusef

[fusef]

et ben non cela ne change pas
a+
fusef

[Laurent Dardenne]

Quel est ton contexte d'utilisation ?

[fusef]

bon je vais essayer de m expliquer je ne suis pas douee pour ça
je suis en train d ecrire un robot qui scrute mon dossiers Mes documents
des qu il trouve un fichier dont le nom commence par une chaine predefinit il doit couper le document et le coller dans un autre emplacement,le prob c est que ci le fichier est en cour d util ben la ya pas bon.
avec la fonction precedente cela fontionne pour les .doc .xls etc.
mais par exemple avec un fichier image de type tiff et imaging ou un fichier txt et notepad marche pas il me laisse faire un shfileoperation (couper et coler).et evidement je manipule surtout des fichiers image.
ce qui est bizar c est que imaging arrive a savoir si un fichier est deja ouvert par lui meme ????

[Laurent Dardenne]

Effectivement en utilisant Process Explorer (http://www.sysinternals.com/) Notepad charge le fichier en mémoire puis ferme le handle du fichier, le laissant libre pour d'autres applications.
Donc le code fonctionne bien, par contre le style de codage de Notepad ...

Dans ce cas il faut t'assurer que l'opération SHFileoperation empêche l'écriture sur un fichier que tu est en train de copier.
Regarde dans le SDK.

[fusef]

merci laurent de la piste le sdk j avais pas pensée
je sens qu il vas y avoir du sport
a+
fusef