Форум: "Система";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Вниз

Как можно определить размер файла   Найти похожие ветки 

← →
Dimka Maslov   (2002-01-11 12:21) [2]

procedure GetFileSizeAttr(FileName: string; var Size: Integer; var Attr: Integer);
var
SR: TSearchRec;
begin
if FindFirst(FileName, faAnyFile, SR) = 0 then begin
Size:=SR.Size;
Attr:=SR.Attr;
FindClose(SR);
end;
end;

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c