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;