Klasse für FindFirstFile/FindNextFile

[himitsu]

Zählen tu ich es wie bei deinem Code.
> via Inc(FCountFiles) im Code

Ja und auf den Wert kann man leicht über dir öffentlichen Property zugreifen:

Delphi-Quellcode:

procedure TMyClass.FindFile(Sender: TFindFiles; Filename: string; const Info: TWin32FindData; var Cancel: Boolean);
begin
  Labe11.Caption := IntToStr(Sender.CountFiles);
  Labe12.Caption := Filename;
  Application.ProcessMessages;
end;

F := TFindFile.Create;
F.OnFindFile := FindFile;
F.Find;