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

Вниз

Функция, возвращающая размер файла   Найти похожие ветки 

← →
Переяслов Григорий ©   (2004-04-14 10:30) [0]

Привет всем. Подскажите, пожалуйста, функцию, которая возвращает размер файла в байтах на диске по его имени (если она есть).
FileSize использовать бы не хотелось, так как для ее использования нужно открывать файл. В справочниках не нашел. :-(

---

← →
Семен Сорокин ©   (2004-04-14 10:31) [1]

GetFileSize :)

---

← →
Переяслов Григорий ©   (2004-04-14 10:48) [2]

Вызываю таким образом. Коррекно?
 hFile := FileOpen (FileName, fmOpenRead);
 FileLen := GetFileSize (hFile, 0);
 FileClose (hFile);

---

← →
stone ©   (2004-04-14 10:53) [3]

function GetFileSizeA(FileName: string): integer;
var
 FHWND: THandle;
begin
 FHWND := CreateFile(PChar(FileName),
                     GENERIC_READ,
                     0, {exclusive}
                     nil, {security}
                     OPEN_EXISTING,
                     FILE_ATTRIBUTE_NORMAL,
                     0);
 try
   Result := GetFileSize(FHWND, nil);
 finally
   CloseHandle(FHWND);
 end
end;

---

← →
Переяслов Григорий ©   (2004-04-14 10:56) [4]

Большое спасибо всем

---

← →
Verg ©   (2004-04-14 11:06) [5]

with TFileStream.Create(FileName, fmOpenRead) do
begin
 FileLen :=Size;
 Free;
end;

---

← →
clickmaker ©   (2004-04-14 11:12) [6]

hFind := FindFirstFile(FileName, wfd);
if (hFind <> INVALID_HANDLE_VALUE) then begin

 FileLen := wfd.nFileSizeLow;
 FindClose(hFind);
end;

---

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

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

Наверх

Память: 0.45 MB
Время: 0.363 c