Listview schläft ein

[Tom]

Was anderes ...

Code:

            for i := 0 to dateien_sl.Count - 1 do 
            begin 
...
                //Icon 
                SHGetFileInfo(PChar(dateien_sl.Strings[i]), 0, file_info_fi, SizeOf(file_info_fi), SHGFI_SYSICONINDEX or SHGFI_ICON);

Irre ich mich, oder enthält das Liste nur *.tmp-Dateien? Das Icon ist doch jedesmal gleich, muss also nicht für jede Datei extra ermittelt werden.

[HomerGER]

@ MathiasSimmack - hat nicht viel gebacht
@ Tom - Ja - sind nur tmp dateien

[Tom]

Der grosse Teil der Zeit geht verloren beim Füllen des ListViews. Kommentiere die Zeilen mal aus und vergleiche die Zeiten ...

[HomerGER]

wie es aussieht braucht er die meiste zeit beim suchen ,nicht so beim füllen der listview
und es sind nicht nur tmp dateien es sollten alle dateien die auch in tempordnern sind angezeigt werden , bin aber leider noch nicht so weit

das wenn ich die ganze ganze festplate scanne lange dauert war mir schon bunt , aber ich wollte es eignetlich das er alle gefunden sofort ins listview einträgt und nicht alle auf einmal denn so sieht es wirklich so aus als würde das programm stehen
ich dachte das scannen könnte maqn ein bischen optimieren
sorry wenn ich mich falsch ausgedrückt habe

[Tom]

Du scannst ja doppelt. Fasse doch die beiden Suchschleifen zusammen, ala Pseudo-

Code:

dirs := TstringList.create ...

Findfirst ...
repeat
  if verzeichnis then dirs.add ... else Rueckgabe.add ...
until findnext ...;

for i := 0 to dirs.count -1 do DurchsucheDir;