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;

[Luckie]

Was ist denn das Kriterium für eine nicht "vollständige2 Datei?

[agm65]

ich dachte das sie zB gerade benutzt wird....

[Luckie]

Wenn ich eine "vollständige" datei gerade abspiele, ist sie auch geöffnet.

[agm65]

ja und ?

[agm65]

ich versuchs jetzt erstmal hiermit ...

Code:

function IsFileInUse(FileName: string): boolean;
var HFileRes: HFILE;
begin
  HFileRes:=CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil,
    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  result:=HFileRes=INVALID_HANDLE_VALUE;
  if not result then CloseHandle(HFileRes);
end;