Für
jede Datei eine Message .... quasi die selbe Ausführungsdauer
Man kann z.B. Verzeichnisweise sammeln, oder per GetTickCount nur
alle nach jeweils frühestens x Sekunden/Millisekunden oder
InterlockedIncrement /
AtomicIncrement im Hintergrund zählen und über einen Timer alle x Sekunden anzeigen oder ....
z.B.:
Delphi-Quellcode:
Counter := 0;
for i := 0 to 10000 do begin
Inc(Counter);
Label1.Caption := IntToStr(Counter);
Application.ProcessMessage;
end;
Delphi-Quellcode:
Counter := 0;
for i := 0 to 10000 do begin
Inc(Counter);
if i mot 1000 then begin
Label1.Caption := IntToStr(Counter);
Application.ProcessMessage;
end;
end;