помоги еще плиз, пытаюсь найти файлы по атрибуту, ставлю, что если атрибут=фадиректори то пишет место размера "Папка", иначе пишет размер, проверяю корень диска C , Папку windows и остальные папки созданные мной отображаются как папка, а папки Recycle.bin , Document and settings , program files, users, Sistem Volume Information пишет размер 0, почему они не отображаются как папки, мне нужно сделать так чтобы у всех папок отображалось "Папка", а у файлов их размер, далее лежит в корне диска утановочный файл гуглхрома, его размер отображается нормально и правильно, рядом файл pagefile.sys, hiberfil.sys их размер отрицателен. почему так? Вот провожу код:
PHP код:
p:=0;
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
repeat
begin
fail[p].name:=sr.Name;
if sr.Attr=faDirectory then
fail[p].size:='Папка' else fail[p].size:=inttostr(sr.Size);
List:=ListView1.Items.Add;
List.Caption:=fail[p].name;
List.SubItems.Add(fail[p].size);
Inc(p);
end;
until FindNext(SR) <> 0;
FindClose(SR);
result:=p;