Функция определения размера любого файла

Своим опытом делится Slava Kostin:

{Стандартная функция Delphi FileSize не может быть
использована для определения размера текстовых файлов.
Данная функция определяет размер любых файлов посредством
вызова соответствующих фукнций WinAPI. Для использования
должен быть дключен модуль Windows (uses Windows)}
function AnyFileSize(FileName: PChar): LongWord;
var hFile: THandle;
begin
hFile := CreateFile(FileName, GENERIC_READ, FILE_SHARE_READ + FILE_SHARE_WRITE, Nil, OPEN_EXISTING, 0, 0); //Попытка получить размер файла: Result := GetFileSize(hFile, Nil); CloseHandle(hFile); //Возоможно, произошла ошибка... if Result = $FFFFFFFF then begin //Произошла ошибка - возвращаем нулевой размер Result := 0; Exit; end; end;

[001893]

Содержание Назад Вперед

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий