Sakuras FindAllFiles modifizieren

[agm65]

Hallo leute, ich habe folgendes problem...

also ich benutze sakuras findallfiles code um dateien in eine LISTBOX einzuladen...
jetzt wollte ich den code so modifizieren das er dateien die gerade benutzt werden oder noch nicht
follständig sind (weil grade am downloaden also auch noch in use), ausschließt !

also solche dateien sollen nicht angezeigt werden ....
hat da jemand ne idee ?

Code:

procedure FindAllFiles(RootFolder: string; Mask: string = '*.*'; Recurse: Boolean = True);

var
  SR: TSearchRec;
begin
  if AnsiLastChar(RootFolder)^ <> '\' then
    RootFolder := RootFolder + '\';
  if Mask = '' then
    Mask := '*.*';
  form1.FileListbox.Clear;
  if FindFirst(RootFolder + Mask, faAnyFile, SR) = 0 then
    try
      repeat
        if SR.Attr and faDirectory <> faDirectory then
        begin
            filelistbox.Items.Add( SR.Name);
        end;
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
end;