|
#1
|
|||
|
|||
Размер файлов
Здравствуйте, подскажите пожалуйста, как получит размер файлов, пути к которым добавлены в ListBox, пытаюсь так:
Код:
function FileSize(fileName : wideString) : Int64; var sr : TSearchRec; begin if FindFirst(fileName, faAnyFile, sr ) = 0 then result := Int64(sr.FindData.nFileSizeHigh) shl Int64(32) + Int64(sr.FindData.nFileSizeLow) else result := -1; FindClose(sr) ; end; procedure TForm1.SizeF; var i: integer; begin for i:=0 to ListBox1.Count - 1 do Label2.Caption := inttostr(FileSize(ListBox1.Items[i])); end; Но получаю размер одного файла. Как получит размер всех файлов? |