![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как можно определить размер файла [D4, Win95/98, NT4, Win2k]
SVF © (2002-01-10 20:49:00)Привет Мастера!
Кто нибудь знает как определить размер файла?
Неоткрывая сам файл. Типа того как узнать Атрибуты файла.
SVF (2002-01-12 15:41:00) [1]Спасибо, за помощь! разобрался.
Dimka Maslov (2002-01-11 12:21:00) [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;
Suntechnic (2002-01-10 21:12:00) [3]FindFirstFile