function Rewizja (ścieżka: sznurek; o: integer): sznurek;
var
sr: tsearchrec;
res: integer;
i: integer;
z: int64;
zaczynać
ścieżka: = includetrailingpathdelimiter (ścieżka);
res: = findfirst (path+'*.*', faAnyfile, sr);
podczas gdy res = (0) zaczynać
application.processmessages;
jeżeli (sr.name <> ".") i (sr.name <> ". .") wtedy
jeżeli DirectoryExists (ścieżka + sr.name) wtedy zaczynać
Form32.Richedit1.lines.add ('Falcówka: '+path+sr.name);
Rewizja (ścieżka + sr.name, o);
końcówka inny zaczynać
//z: =Int64 (sr.FindData.nFileSizeHigh) shl Int64 (32) + Int64 (sr.FindData.nFileSizeLow) +z;
z: =Sr.Size;
Filesizes: =Filesizes+z;
Form32.Richedit1.lines.add ('Kartoteka: '+path+sr.name);
końcówka;
res: = findnext (sr);
końcówka;
findclose (sr);
końcówka;
|